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This program logic manual describes the internal logic of the 
IBM System/3 Disk Assembler. The main function of the 
assembler is to translate source program statements into ma- 
chine language for execution by the computer. There are 
five sections within the PLM, organized as follows: 


1. Introduction contains general information about the 
operational, environmental, and physical character- 
istics of the assembler. 


2. Method of Operation describes the functional flow of 
logic and data in the assembler. 


3. Program Organization describes the function and 


storage allocation of each phase in the assembler. 


4, Directory contains information needed for quick 
reference to the program listings. 


5. Data Area Formats describes the formats of all data 
areas used by two or more phases. 
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Preface 


System/3 Model 8 


The System/3 Model 8 is supported by System/3 Model 10 
Disk System Control Programming and Program Products. 
The facilities described in this publication for the Model 10 
are also applicable to the Model 8, although the Model 8 

is not referenced. It should be noted that not all devices 
and features which are available on the Model 10 are 
available on the Model 8. Therefore, Model 8 users should 
be familiar with the contents of /BM System/3 Model 8 
Introduction, GC21-5114. 


Related Publications 


@ /BM System/3 Model 12 System Data Areas and Diag- 
nostic Aids Handbook, SY21-0045 


@ /BM System/3 Model 15 System Data Areas and Diag- 
nostic Aids Handbook, SY21-0032 


ili 
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Prerequisite Publications é 


Effective use of this program logic manual requires an 
understanding of the information presented in the /BM 
System/3 Basic Assembler Reference Manual, SC21-7509, 

as well as topics discussed in the program logic manuals 
shown below, which are referenced in this manual. In the 
flowcharts, references are made indirectly, by using func- 
tion/module names in library blocks (see Appendix B. Flow- 
charting Techniques, for an example). The following chart 
shows which PLM to refer to for a discussion of each func- 
tion/module name used in the flowcharts. 


Model 10 Disk System Function/Module Name . 


IBM System/3 Disk Systems 
Data Management and Input/ 
Output Supervisor Logic 
Manual, SY21-0512. 


IBM System/3.Disk Systems 


System Control Program 
Logic Manual, SY21-0502. 


IBM System/3 Model 12 


System Control Program 
Logic Manual, SY 21-0046. 


IBM System/3 Model 15 
Supervisor and 1OS Logic 
Manual, SY21-0033. 


IBM System/3 Model 15 
Data Management Logic 
Manual, SY21-0034. 


IBM System/3 Model 15 
Scheduler Logic Manual, 
SY 21-0035. 
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The IBM System/3 Model 10 Disk System Basic Assembler 
Language, IBM System/3 Model 12 Basic Assembler Lan- 
guage, and IBM System/3 Model 15 Basic Assembler Lan- 
guage provide a convenient way to write programs for IBM 
System/3. The IBM System/3 Basic Assembler processes 
instructions written in assembler language, translates them 


into machine instructions, assigns storage locations, and per- 


forms other functions necessary to produce an executable, 


machine-language program. Input to the assembler programs 


consists of source records on disk storage. The source 
records are processed by the following phases: 


@ PhaseO05 Assembler Initialization Phase. Initializes the 
assembler; processes OPTIONS, HEADERS, 
and/or ICTL statements. 

@ Phase 10 Compression Phase. Reads source file; gen- 
erates intermediate text on the work file. 

@ Phase 20 Symbol Processing Phase. Reads the inter- 
mediate text and builds symbol table in core 
storage. 

@ Phase 21 Symbol Table Overflow Processing Phase. 
Called only if symbol table overflows. Tests 
intermediate text following the overflow for 
previously defined symbols. 

@ Phase 22 Symbol Substitution Phase. Places values 
from last (or only) symbol table into the 
intermediate text term records. Builds an 
ESL (External Symbol List) table. 

@ Phase 29 ESL Output Phase. Puts ESL records in the 
object file. Prints the ESL. 

@ Phase 30 Source/Object Output Phase. Generates 
object code and source object listing, and 
puts the object code out to an object file. 
@ Phase 35 Diagnostic Phase. Writes a diagnostic mes- 
sage list for assembly errors. 

@ Phase 40 Cross-Reference Build Phase. Builds a cross- 
reference file (if XREF is specified on the 
OPTIONS card). 
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Section 1. Introduction 


@ Phase 41 Cross-Reference Sort Phase. Sorts the file 
built in Phase 40, generates the cross refer- 
ence listing, and fetches the Overlay Linkage 


Editor if object output is required (DECK 


and/or OBJ specified on OPTIONS statement). 


A detailed account of each phase is contained in Section 3, 
Program Organization. j 


STORAGE REQUIREMENTS 


The Model 10 Disk System Basic Assembler (5702-AS1) re- 
quires 8,192 bytes of main storage for execution, exclusive 
of control program requirements. 


The Model 12 Basic Assembler (5705-AS1) and the Model 
15 Basic Assembler (5704-AS1 or 5704-AS2) require 
10,240 bytes of main storage for execution, exclusive of 
control program requirements. 


Introduction 1 


Licensed Material-Property of IBM 


Licensed Material-Property of IBM 


Page of LY21-0504-3 
Issued 17 March 1976 
By TNL: LN21-5382 


Section 2. Method of Operation 


This section describes the functional flow of logic and data Register Conventions 
through the various phases of the assembler. 
1. The assembler uses Index Register 1, hereafter referred 

to as XR1, as the communications register. At all times 
Phase-to-Phase Communication XR1 will be pointing either to the Communications 

Vector (COMVEC) or to Assembler Common (ASMCOM). 
Phase-to-phase communication during execution of the Each of these two areas contains the displacement of 
assembler is accomplished by using two communication the other, so that XR1 can be switched with a single 
modules: : instruction. At the entry to each phase (after Phase 


$ASROT — Assembler Communications Module. This 

is the basic communication module for the entire 

assembler. It resides in the low address area of the 
partition throughout the assembly process. (See Data 

Area Formats for a detailed description of $ASROT.) 

The $ASROT module contains the following sections: 

a. Communications Vector (COMVEC). Contains a 
transfer vector for all data management routines, 
address tables for any working storage that must 
be accessed outside of an executing module, and 
the name of the currently executing module. Disk 
DTFs and IOBs for source file, work file, and ob- 
ject files also reside in COMVEC. 

b. Assembler Common (ASMCOM). A working stor- 
age/constant block used by all assembler phases for 
intraphase and interphase communication. See Data 
Area Formats for a detailed description of 
ASMCOM. 


Note: The Compiler Access Method (CAM) resides in 
$SASROT. See Section 3. Program Organization for 
a description of CAM. 


$ASPRC — Printer Communications Module. This 

module contains the data areas necessary to print the 

assembler listing, in conjunction with a print module. 

These data areas are: 

a. Header Area. Data area used for passing the head- 
er of the listing from phase to phase. Accessed 
through COMVEC. 

b. Printer Buffer. Print buffer with proper alignment 
(X‘7C’ byte boundary). 

c. Print Module Interface. In the Model 10 Assem- 
bler, this interface is the Printer DTF; in the Model 
12 Assembler, this interface is the SYSLST param- 
eter list; in the Model 15 Assembler, this interface 
is the SYSPRT parameter list. Accessed through 
COMVEC. 

d. Print Module Load Area (Model 15 Assembler only). 
The SYSPRT module is loaded into this area, which 
is accessed through COMVEC. See Data Area For- 
mats for a detailed description of $ASPRC. 


05), XR1 is pointing to COMVEC. The first instruc- 
tion of each phase moves the phase’s module name to 
COMVEC, so that COMVEC always contains the name 
of the currently executing module. 


2: Index Register 2, hereafter referred to as XR2, is used 
as a DTF pointer and a work register throughout the 
assembly. The contents of XR2 at the entry toa 
phase are unpredictable. 


3. | Communications Vector initialization. $ASROT is 
loaded only once with Phase 05. Therefore, any 
communication tables or routines which are loaded 
with a later phase must have their addresses moved to 
COMVEC. This is normally accomplished during the 
initialization routine for the phase, using an EXTRN 
statement, an address constant, and a MVC. 


Work File (SWORK2) 


The work file is a scratch file used by the assembler for 
intermediate disk storage. 


Data is passed back and forth between the work file and 
the phases throughout the assembly process. See Appendix 
A and Data Area Formats for a detailed description of the 
work file. 
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Source File (SSOURCE) 


The source file is used by the assembler for storing the 
source program. It provides source records for phases 05, 
10, 29, and 30. The source file is loaded by the Scheduler 
or the macro processor before the assembler begins 
executing. 


Object File (SWORK) 


The object program produced by the assembler is put out 
on the object file during phases 29 and 30. After assembly, 
Phase 41 passes control to the overlay linkage editor if 
object output is required. The object file then becomes an 
input file for the linkage editor. 


Figure 1 shows the main storage load structure for each 
phase in the assembler program. {t also indicates which 
areas remain the same from one phase to the next, and 
which areas are overlaid with new coding. 


Figure 2 illustrates the overall flow of logic and data through 
the assembler program. The logic flow is traced from phase 
to phase, with the major functions of each phase listed 
under the phase’s numerical title. The data flow is followed 
between the phases and ASMCOM, the Work File, the 
Source, and the Object File. Any output produced by a 
phase is also indicated as data flow. 
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Load Order 


PHASE 05 PHASE 10 PHASE 20 PHASE 21 PHASE 22 PHASE 29 PHASE 30 PHASE 35 PHASE 40 PHASE 41 


$ASROT 


$SASPRC 


$ASROT 


$ASROT 


PHASE 


$ASROT 


PHASE 


$ASROT 


PHASE 


$ASROT 


PHASE 


PHASE 


05 10 20 21 22 Printer Data 
CODE _ CODE CODE CODE CODE Management* 
(SASINO) (SASCMO) (SASSBO) (S$ASSFO) (SASSSO) 


\ 


; srg PHASE PHASE PHASE PHASE 
Disk Disk ESL Table alice 30 35 40 At 
ment 
1/O 1/O Table CODE CODE CODE CODE 
Buffers Buffers Disk Disk Symbol PHASE 29 (SASPSO) (SASPDO) (SASBXO) ($ASSXO) 
1/O 1/0 Table CODE 
Buffers Buffers Disk (SASPEO) Disk Disk Disk Disk 


1/0 
Buffers 


1/0 1/O 1/0 
Buffers Buffers Buffers 


1/0 


ESL Table Buffers 


Disk 
1/O 
Buffers 


Note: Two dark lines are shown in each phase. The area between the lines is newly loaded by 
the phase. The area above the first line and below the second remains the same as it was for the 
preceding phase. 
* Model 10 only. On Model 15, SYSPRT is used, and is loaded into the $ASPRC module. On Model 12, SYSLST is used, and is loaded in the $ASPRC module. 
** Model 10 only. On Model 12 and Model 15, SYSPCH is used, and is loaded into the $ASPEO module. 


Figure 1. Main Storage Load Structure for the Assembler 
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PHASE 05 


Initializes 


PHASE 10 
@ Reads and 


PHASE 20 


Reads inter- 


PHASE 21 
@ Reads and 


PHASE 22 
@® Substitutes 


Phase 


Assembler and processes all mediate text processes inter- symbol! values 
Phase 10 source state- and builds mediate text into term 
Reads and ments symbol table after point of records in inter- 
START processes Decodes and ® Assigns location Symbol Table overflow in mediate text on 
OPTIONS, tests source counter values Gueciaw Phase 20 the work file 
HEADERS, statements @ Updates control aca Adds symbol Builds an ESL 
VIA and ICTL* Builds inter- records and table to:work table 
// LOAD cards mediate text error records on file if cross Adds symbol 
$ASSEM First phase to on the work work file reference re- table to work 
statement gain control file quested file if cross 
Output to work reference 
file requested 
ICTL* only 
Symbol Symbol! Symbol! 
No source cards EOJ Table Table Table 
Last (or only) symbol table found 
KEY Note: \f unrecoverable error is found 


in any Phase, End of Job (EOJ) occurs. 
-—— > = Logic flow 


mE = Data flow 


*INPUT format control 
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From 
Phase 
22 


PHASE 29 
@ Prints Control 
records and 
options selected 
@ Prints ESL table 
@ Puts out ESL 
records 


Control state- 
ment and ESL 


Listing 


KEY 


—— — = Logic Flow 


gu = Data Flow 


PHASE 30. 


PHASE 35 
@ Reads Error 
records from 
work file and 
generates a 
diagnostic mes- 
sage for each 
error discovered 
during assembly 


Reads source 
file to generate 
source portion 
of listings 

Reads the work 
file intermediate 
text to generate | 
object program 
Writes error 
records on work 
file 


Diagnostic 
Listing 


Object 


: File 
Object 


File 


Cross 


Reference 
Requested 


lork 
File . 
S$WORK2 


Object 
File 
($WORK) 


PHASE 40 PHASE 41 © OVERLAY 


® Builds a cross @ Sorts the file LINKAGE 
reference from built by Phase EDITOR 
the intermediate 40 (SOLYNX) 
text and the Generates cross DECK @ Punches and/or 
symbol table in reference listing and/or catalogs object 


program as re- 
quested 


the work file 


OBJ 
specified 


NODECK 


Cross Reference & 
Not Requested Cross NOOBJ 
Reference specified 


Listing 


EOJ 


Note: \f unrecoverable error is found in any Phase, End of 
Job (EOJ) occurs. 
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Section 3. Program Organization 


This section describes in detail each of the phases and rou- Charts: AA-AD. 
tines that perform the functions of the assembler. The 
description of each phase includes a main storage map and 


appropriate flowcharts. (Some of the simpler routines with- Functions: 
in each phase do not have flowcharts.) For a description of 
the ASMCOM data area used by the individual phases, see © Initializes the assembler (INIOOQO—Chart AA). 
Section 5, Data Area Formats. | 
: @ Processes three types of records which, if used, must pre- 


cede all other source statements. 
MODULE $ASINO — ASSEMBLER INITIALIZATION 
(PHASE 05) 1. OPTIONS—assembler control options and/or 
HEADERS—assembler control information. 
Main Storage Map: Figure 3. 
2. ICTL—source record boundaries (INCOO0O—Chart 
AB). 


@ Searches an operand field until a comma or a blank is 
found (INLOOO—no chart). 


$ASROT 


Communications Vector 
Assembler Common @ Searches a source record and places the following infor- 


Disk Data Management mation into ASMCOM: 


PHASE 05 CODE (Module $ASINO) 1. Length of name (if present). 


IN1000 | 2. Column number of rightmost byte of operation 
INCOOO code. 

INLOOO 
INSOOO 
INVOOO 
iINWOO0O 
Working Storage and Constants 4. Column number of leftmost byte of operand. 


ee 


6. Column number of rightmost byte of operand 
Figure 3. Phase 05 Main Storage Map (INSOOO—Chart AC). 


3. Length of operation code. 


@ Converts zoned decimal strings to binary equivalents 


Entry Point: $ASIN1 — entered from the scheduler. (For (INVOO0—no chart). 

Model 10 Disk System, see /BM System/3 Disk Systems Sys- 

tem Control Program Logic Manual, SY 21-0502; for Model @ Provides interfaces with disk data management (INWOOO, 
12, see /BM System/3 Mode! 12 System Control Program INWO10, and INW100—Chart AD). 


Logic Manual, SY21-0046; for Model 15, see /BM System/3 
Model 15 Scheduler Logic Manual, SY21-0035.) 


Program Organization 9 


Licensed Material-Property of IBM 


Page of LY21-0504-3 
Issued 31 December 1976 
By TNL: LN21-5469 


Input: @ One or more records written into work file. 
@ Source File 1. Intermediate text control record. 
1. OPTIONS, HEADERS, and ICTL (Input Format 2. Error records. 
Control) cards. 
3. Last intermediate text control record if end-of- 
2. Assembler language cards. source or invalid ICTL is found. 
Output: Exits: . 
@ OPTIONS switches set as requested on OPTIONS @ Normal 
records. (If none used, default options are DECK, : 
LIST, XREF, REL, OBJ, NOXBUF.) Valid options Control passed to Phase 10 (Module $ASCMO). Excep- 
and control record count stored in ASMCOM. tion: If end-of-source is found, control passed to Phase 
20 (Module $ASSBO). If there are no source cards, con- 
@® HEADERS information stored in ASMCOM. trol is passed to EOJ. 
@ Beginning and end column values set as specified on @ Error 
ICTL (Input Format Control) record. (If none used, 
default values of 1 and 87 are assumed. Sequence ID Control is passed to scheduler via Halt/Syslog or EOJ 
field is assumed to be in columns 89-96.) transients. (For Model 10 Disk System, see /BM System/3 
Disk Systems System Control Program Logic Manual, 
SY21-0502; for Model 12, see /BM System/3 Model 12 
System Control Program Logic Manual, SY21-0046; for 
Model 15, see /BM System/3 Model 15 Scheduler Logic 
Manual, SY21-0035.) © 
10 
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Chart AA. Initialization Routine (INIO00) — Model 10/Model 12 
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M OPTIONS ote >*2 OPERAND .*---— 
* INDICATORS * A *, .* | 
* * *. ox 
Oe He Re ae ae ae a ae he he he ake afc ae afc afc ac | e 
se tek * YES ek tok 
x * Hk KK * * 
* K3 * * * * F2 * 
* * *->* B2 * * * 
Ke * MK ok 
Kk 


Chart AB. (Part 1 of 2). Options and/or ICTL Instruction Processing Routine (INCOOO) 


HH HK AD HK HK KK 
* 
* ENTRY * 
* * 
Oe ae ae ae he ae oe ae a ae aie 3k 3 3 ak 


ke KK 
* 


* 
* B2 *-> 
* * 
kK kk 


* GET A SOURCE * 
: RECORD * 


< 


Tort ioge tro oer rtf 
* 


* 
* BUILD CONTROL * 
ce ORD FOR ICTLS 


* * 
He he He Me ee ae He He a he eK a 2K 2K 


t< 


* 
BM He ae he ae eK ee Oe a He ae 


Jone Ed RE 
x * 
* DECODE FIRST * 
* OP ERAND * 
x * 

* 

* 


* 
IK Me ae He a Me he He ae 3 he Ne HK ae a He. 


NO CHART 
tol F 4 fol ioi tot tok k 
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eeRKC LER R ERE REE 
SAVE BEGIN 
COLUMN 


tt te 
oe ee 


Pe SPE SELES EES SS SS 


V 
PTTL Te TTT TTT tT . 
* * 
* DECQDE SECOND * 
* CPERAND * 


* * 
PES ERLE RES SELES EE SE 


sR E Lt 
¥TNvoo0 
* CONVERT TO * 
* BINARY * 


* x 
PTT ETT TT TL TTT Tt ttf | 


V 
KREG] KKASHEEEEE 
* * 


* * 
FSAVE ENC COLUMNS 


* * 
TI Tite tT Trt tt tet 


* 
PPE SESE REE EEE ES ES 


#0 B ZH HH 


*INWO1O 
#---- +--+ * 


w------- >* WRITE ERRCR * 


* RECORC * 
PEELE EEE TELE SEE ES 


INC280 V 
KERR BRK EKER 


* * 
*SET MISSING ENC* 
‘ ERRCR * 


* * 
RRR EK ERKEE 


V 
PETIT LUELICLOOL IE SS 
* * 
*SET MQOULE NAME* 
* MISSING * 
* * 
* * 
PTErrLETTCEEE rer. 


V 
SHREK EZ REE EE EERE 


* * 
#SET LAST RECORD* 
* SWITCE * 


* * 
ELT TT ITT rT Ttrt e+ T 


A 
#XHRKE ZX * 
*INWCCO ‘ 
* WRITE LAST * 
* RECORD * 


ER RK 


t< 
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SxXXKE 
oo oad INC 260 
* * SRABKAS THEKEKHRKEEK 
* *#CGMPLTE ADDR OF* 
{ 4dEGIN CGLUMN OF* 
t------ >* SOURCE *{-=5 
* STATEMENT  * 
KKAKE * 
*O001* Pee ETELiTrrrtt tts: 
* oS aii 
* MODEL 10 x ASH 
CISK SYSTEM * 
AND MODEL +k 
INC275 y 12 ONLY 4 
| ef atts r 48 “ee “1 
e a e eo e 
YES .* SCURCE . | .*° Gevect “*#. no | 
----- *. STATEMENTS w8<--- | #2 OUTPUT senna 
"ee * **. * 
e e | * * 
* NO et * YES 
* + | | 
* BS * 
* *| | 
REE 
V | V | 
RREEKCGKEKEKHEKAES REKRAE HSER KKEKEK 
*CLCSE * | +0PEN * | 
** CLOSE » # J * *0PEN OBJECT * | 
* #SOURCE FILE* + i + FILE ++ 
SEKEKEKGHKKESKESRSE preeseenreseeeee | 
| \ 
Vv | $e ena DS He ee Re | 
FEKEOGERKRKEKKE * ITIALIZE : 
*EOJ * * INITIA 
#-->-+----------- * I eoester CTE-AND # | 
* penned daneees 15 108 : | 
iii biti | 
| < ° | 
| ———» ———- ans: =! wan ewawe of 
V 
HEELS 
*FETCH * 
Rae oe nee * 
*EXIT? PHASE 10 * 
Lee Pe ESE SLES ES SS 
MODEL 10 OISK SYSTEM AND MODEL 12 CNLY 
SAEAAGG HERE DHS GS tee | 
*OPEN * * * 
wna -------=--- * INITIALIZE #€ | 
---->* *OPEN CBJECT# #-------- >*OBJECT OTF AND * 
** FILE * * 1GB * | 
PSS SELES LS SSL ES SF | KRESS APKKEKKSK SE KKK | 
{ 


4 KH Zt 
SCAMOO1 

* WRITE LAST 

: BLOCK 


HHH HHHD 


ETT TTT TTT rere TT 


V 
TES PELLICLE Lele. 
WE ETCH * 


Chart A8. (Part 2 of 2). Options and/or ICTL Instruction Processing Routine (INCOOQ) 
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INSOOO 
ae ake a A] ae oe oe oie ak 2 ok 
+ 
* ENTRY * 
* * 
Me a a ae ah oe he a a a Ae He 


V 
A RIOR B lakotok sedokk x 
* * 
*INITIALIZE THE * 
* ROUTINE is 


* * 
Be ea a ak a ake a a 2K a ok a ok 


V 
me oe ie 3 DR ae 2K ea ok oe aK KK 
* 


* 
SET ERROR * 
INDICATOR : 
* 
* 


St 3t Tt 4 


Reo ae ae aK ah 2 aK a ae ak ee a a ak 


V 
sek ok aE raok tet akc tak 
DS * 


* MOVE A BLANK * 
*INTO END COLUMN* 
* +1 * 


* * 
eR ae Be eae a ae ok a aK ok aaa 


<-----—--- --- 


V 
ek CRG ROR Fok ke 
* 


SEARCH TO A 
BLANK 


HHH 
HHH 


We Me ae ae ae a ee oe ae ake He aK ak Kk 


V 
Sea RORY] oe a ae ae ak ak ae oe 
* * 


* SAVE THE NAME * 
* LENGTH IF * 


[ PRESENT pe 
BO ICR a a ake oak ae ak ak ak 
V 
0X. 

Jl *. 


.* AT END -*. YES 


e e 
ae .* 
x, V 
* NO Hea aK 
* * 
x J3 * 
Vv * * 
we ao x ett 
* * 
* AZ * 
* * 
ke 


Chart AC. Source Record Search Routine (INSOOO) 
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oo NON-BLANK 


010 

Fe CK A 3 RR ako a a 
* 

* SEARCH TO 


4 te Ht tt 


* 
fe a a a akc a a a ak aa ak oe ak ae 9k 


V 
eX 
B3 xe 
2 x 
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i .* 
*, .* 
* NO Hee aa 
x x 
x JZ x 
x x 
fe ok 


Vv 
ek RO C3 a a a ak ak a ak 
* 


* 
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Bee he ae Re a ok a aK a ok a eke oe ok 


V 
Be I DF A a oka a oa 
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BLANK 
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H 3 4 tt Ht 


BORO IGOR Rake ko ak ak ak ak 


V 
see a E 3 aoe sak ek ee 


x * 
*xSAVE THE LENGTH* 
: OF OPERATION - 


* * 
He oe se he ae ae 2 fe ae ak ae ake ok oe a 


Vv 
aX, 
F3 x, 
.* 
-* AT END x. YES 
*. OF SOURCE .*---- 
®, .* 
*, o* 
es es Vv 
* NO fe aK 
* x 
* J3 * 
* * 
ek 


Vv 
Foto RG 3 to tok dak ik ok 


SEARCH TO 
NON-BLANK 


Ht 4e 8 Ht Ht 
He tt Ht tt Ht 


Be a ae i a ei a a ak ok ae 2K aK ok 


V 
o%e 
H3 *, 
i : fea 
° AT END *. NO * * 
*. OF SOURCE .¥---->* B5 * 
*. * * Es 


x, * BKK 
Ke 4k 
* YES 

CK 
* * 

* J3 *-> 
* * 

eK 


V 
Hea YB ok ok a ak ak ak ak 
* * 
* RETURN * 
* x 
Fe RRC RR eek ek 
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we Me fe eK Soe he oh whe ok i ok ok 
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* SAVE THE * 
* OPERAND START * 
x COLUMN * 
* & 
me eo ea oe a ae 3 oe oh oie ae oie ok ok fe 
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BLANK 
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* COLUMN * 
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o* 1s e 
2~-*. QPERAND ONE .* 
*,. BYTE ° 
*, o* 
x, 4% 
ett * YES 
* * 
x J3 * 
* * 
Hk 
Vv 
o*e 
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NO .* IS *. 
o—-%, OPERAND  .* 
. COMMA x 
x, .* 
V xe 4% 
HK * YES 
* * 
* J3 * 
* * 
He ae te ok 
eR ICG 5 a a a ok ak ae ok ok 
* x 
* ZERO OPERAND- * 
a LENGTH * 
* Cs 
* * 
BE IG og dom tok akc ik 
fot 
* 
->* J3 * 
* 
ek 


INWOOO 
so OR A | debe ek fake 
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* ENTRY * 

* * 
ake ae a we ae a ae ae ae ae aie ae 2 aie kc 


V 
HR AB) ok Re eK 


* * 
* MOVE CONTROL * 
*RECORO TO WORK * 
* AREA — * 


* * 
MM He eH eH ae he 2 oe 3K oh eK 


INWOLO 


He RIO A 2 a a a ok ak a 

* 

* ENTRY * 
* * 
Me a Re a ak ae ak ae a ake ok 2 ak 


V 
eC OR B Dak ak teak ak ak fe sak ok 
* * 
* MOVE ERROR * 
*RECORD TO WORK * 
* AREA * 


* * 
HR A a a a he ee ok ae ae ate a ke ok ae 


V 
Fe OKC 2 Raia i ak aka 
Cs * 


* * 
*SET UP LINKAGE * 
* * 


* * 
Be Re fe ae ae a ae aR ate a ae akc a a ak ate ak 


<----------5 


sick E 2a RE 
x 

* PUT RECORD IN 
. CURRENT BLOCK * 


* 
SE RO ROI Ok ae ke kek ae 


He IKG 24k 


*CAMOO1 
0 ee a ee ae re ae ae oe ce ee om ew ee 


* WRITE CURRENT 
: BLOCK 


MR IK a AK ie ae He ae aK ae a a ae fe ke he 


H2 *, 


* x, 
2* END OF “*, YES 
#. EXTENT | o#===- 


V 
oko J 22k toiaiiok dk 


* 
* RETURN = 
* * 
Mee a a ae aa ea ae a ak 


~--->*WAIT ON CURRENT * 
a WRITE x 


* 
Re a ae ae ae ae ee fe a 3 2 ac ae he ae oe 


FORE 3 Nek te ak aa 
OJ 


HOR ICR 3 dee si ok eae ak ok 
SYSLOG : 


oa EXIT * 
He He ee ake a a ak ae ae ok 


Chart AD. Disk Data Management Interfaces (INWO0O) 
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Fak A 4 Foto a ak ak ak 
* * 
* ENTRY * 
* ES 

etek a ak ke ae ak a ak ak ee 


V 
Hokak ok BG teak eked kee ak 
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* * 
*SET UP LINKAGE * 
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* * 
Ae fe he fe ae ae ae 2 fe a af he af a 2 a a 


Vv 
EIEIO D 4 lak ato tok ito 
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* GET A RECORD * 
sFROM THE BLOCK : 


x x 
He he he he ae ee 3 hea ae fe a ac ake 


V 
aXe 
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NO .* BLOCK *, 


~~, EMPTY o% 
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V KA/O 
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*--------------- * 


* * 
. READ A BLOCK : 
Me Re eae a fe ak ak ak ae ie ae ak 


t= 


Vv 
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* 
* RE TURN * 
* * 
He Me Ae a af eae ae ok ae aft oe ie ae he 
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MODULE $ASCMO—COMPRESSION (PHASE 10) 


Main Storage Map: Figure 4. 


Entry Point: $ASCM1—entered from Phase 05 via FETCH. 
(For Model 10 Disk System, see /BM System/3 Disk Systems 
System Control Program Logic Manual, SY21-0502; for 
Model 12, see /BM System/3 Model 12 System Control! Pro- 
gram Logic Manual, SY21-0046; for Model 15, see /BM 
System/3 Model 15 Supervisor and [OS Logic Manual, 

SY 21-0033.) 


Charts: BA-BH. 


Functions: 
@ Initializes Phase 10 for processing (CMIO00—Chart BA). 


@ Controls Phase 10 processing of source records, including 
sequence checking if requested (CMPOOO—Chart BB). 


@ Tests for name field (CMNOQOO—no chart). 


@ Puts out control record and a name record if a valid 
symbol is present (CMUQ00—no chart). 


@ Performs actions required when Phase 10 assembly pro- 
cessing is complete (CMLOOO—Chart BG). 


@ Fetches Phase 20 (CMLOOO—Chart BG). 


@ Determines the operation code specified on the current 
source statement (CMO000—no chart). 


@ Determines if a referenced byte contains either a valid 
alphabetic or numeric character (CMCOO00O—no chart). 


@ Searches a source record; records following information 
in ASMCOM: 


1. Length of name (if present). 


2. Column number of rightmost byte of operation 
code. 


3. Length of operation byte. 


4. Column number of leftmost byte of operand. 


5, Length of operand field. 


6. Column number of rightmost byte of operand 
(CMSO00—no chart; functionally the same as 
INSOOO in Phase 05). 


Converts zoned decimal strings to binary equivalents 
(CMV000—no chart). 


Decodes and tests the syntax of the operand field of the 
current source statement for proper syntactical coding 
(CMYO00—Chart BC; see Figure 5. Syntax Testing). 


Determines if the operand format set by the Syntax 
Routine CMY0O0OO Is valid for the current type of source 
statement (CMX000—no chart). 


If operand format is valid, sets up operand byte in the 
intermediate text control record build area (CMX0O00— 
no chart). 


Determines object length—in bytes—of current machine 
source statement (CMROOO—no chart). 


Prepares each term in the operand field for the CMD000 
routine by searching for the end of the current term and 
temporarily placing a blank in that byte (CMK0QO0— 
Chart BE). 


Creates intermediate text term record for each valid term 


in the operand field of the current source record 
(CMDO000—Chart BF). 


Processes all assembler operations (CMAO0O00—Chart BD). 


Creates intermediate text term records for the operand 
field of the TITLE and DC instructions (CMAOQ00— 
Chart BD). 


Provides interfaces with data management for disk 
operations (CMWO00, CMW010, CMW020, CMWO030, 
CMW100—Chart BH). 
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RESIDENT SUPERVISOR 


$ASROT 


Communications Vector 
Assembler Common 
Disk Data Management 


PHASE 10 CODE (Module $ASCMO) 


CM1000 

CMPOO0O 

CMNOOO 

CMUOO0O0 

CMLOOO 

CMOO00 

CMCOO0O 

CMSO000 

CMVO00O 

CMY0O00O 

CMX000 

CMROOO 

CMKOOO 

CMDOOO 

CMAO0O 

Print Keyword Table* 
CMWwO000 

Operation Code Table 


DISK BUFFERS 


* Model 12 and Model 15 only 


Figure 4, Phase 10 Main Storage Map 
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Acceptable Syn- 
tactical Possi- 
bilities for 
Currently 
Loaded 
Branch 


Any Non- 
Syntactical 
Element (4) 


Branch 
Table (2) 


Right 
Parentheses 


Record element 
start. Load 
branch table 2 


7 


Record element Load branch 
start. Load table 4 
branch table 7 


X(, or Record element Error Error Error 
X(X, start. Load 

branch table 5 
X(X,X Continue Error Error Error 
or 
X(,X 


Compute and 
store element 
length return 


Compute and 
store element 
length load 

branch table 


Compute and 
store element 
length load 
branch table 
1 


Compute and 
store element 
length. Load 
branch table 6 


End of 
operand, 
not end of 
field 


Error 
unless DC/DS 


operand, unless DC/DS 


end of field 


X(X Continue Error Error 


Acceptable syntactical! possibilities are listed across the top of the table. 


Compute and 
store element 
length. Load 
branch table 
A 


Compute and 
store element 
length. Load 
branch table 
6 


Reading across from each Branch Table number, the action taken is indicated in the case of each syn- 
tactical possibility. (Example: In Branch Table 1, only a non-syntactical element is acceptable. All 
other possibilities will cause an error bit to be turned on in the error record build areas. 


For each Branch Table number, the Possible Expression column shows the format that the operand 
being tested will be in up to that point. 


A non-syntactical element in an operand is a character or series of characters other than the parentheses 
and commas which form the syntactical elements. (Example: X(X,X) ... The Xs are non-syntactical 
elements.) 


Figure 5. Syntax Testing 
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Input: 


@ Source file (SSOURCE). Source records are read from 
the source file by disk data management. 


@ Assembler Common (ASMCOM). This area in the module 
$SASROT has been completely initialized in phase 05. 


@ Operation Code Table. Contains information about all 
instructions supported by the assembler. This table is 
divided into five sections, each of which can be accessed 
by means of pointers containing the address of the right- 
most byte of the first mnemonic in that section. Each 
pointer also contains a one-byte count of the number of 
mnemonics in the section.) 


1. Section 1, all 1-character mnemonics. 
2. Section 2, all 2-character mnemonics. 
3. Section 3, all 3-character mnemonics. 
4. Section 4, all 4-character mnemonics. 
5. Section 5, all 5-character mnemonics. 


The operation code table is loaded with Phase 10. It is in- 

cluded as input here because it is used by the phase as a 

model to which source records are compared. 

Output: 

® Intermediate text in the work file (SWORK2). Inter- 
mediate text records written into the work file by disk 
data management. 

@ Parameters stored in ASMCOM: 


1. TITLEN — name from the first title statement. 


2. MODULE — module name from the start state- 
ment. 


3. SEQCNT — count of sequence errors. 


4, ESLCNT — count of ESL table entries. 
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Exits: 
@® Normal — control is passed to Phase 20 (module $ASSBO). 


@ Error — control is passed to the scheduler via Halt/Syslog 
or EOJ transients. (For Model 10 Disk System, see /BM 
System/3 Disk Systems System Control Programming 
Logic Manual, SY21-0502; for Model 12, see /BM 
System/3 Model 12 System Control Program Logic Man- 
ual, SY21-0046; for Model 15, see /BM System/3 Model 
15 Scheduler Logic Manual, SY21-0035.) 


$ASCM1 
aa A) tok kk ok ke 
* 
* ENTRY * 
* * 
sok oR ak gk ak kkk 


CMI 000 V 
30k 39K Bk tok tok ok toto 
* * 


ok 
eR ae he ae ae a a oe Ae oe ae a a ae ae ok 


V 
wea ORC] oe ok tok ak kok 
* READY COMPARE * 
* FOR COMMENT * 
* STMTS_ IN * 
SCONTROL ROUTINES 
SR RR RO RK RR RIOR 


V 

% HK HRD | Me He HM Heke ak se ak 

* 

* EXIT * 

* * 

Hm He Hehe He he He He He He HK HH 
TO: CMPO1O 


Chart BA. Initialization Routine (CMIO0OQ) 
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CMPO00 
WK KARA Yok Kk 
¥* * 
* ENTRY * 
* * 
SAK oe ae a a fe ae ae a ate ake ah a ake ake 


WR AK 
* * 
* Bl *-> 
* * 


KAKK 


V_ BH/01/B4 
RAKE | RR KK RK K 
*CMW100 * 


caw sn em ta eons bic Tarn ew cameo om 
* READ A SOURCE * 
* RECORD * 
WH KH HK HH HK KKK HK HK 


Bek IRD | etek ee 
* * 
* CLEAR CONTROL * 
: RECORD * 


* * 
He ae he He oe he ae ee eae ak ae he 


—*t 


We He De ae a ete ok aK ak 
* * 


*COMPARE CURRENT * 
* # AGAINST * 
: PREVIOUS # . 
Se a dolatok tok act to 


V 
WK MAG | a a a KA 
* * 


* * 
SSAVE CURRENT # : 


* ¢ * 
We ek A ae a ae ke ee ae ok ae IK 3 


fh 
VYES .*° CURR 
oe LAR 
*, o* 

* 


V 
Fe ORY taka tok tote 
* 


x 
* INDICATE * 
SEQUENCE ERROR . 


* * 
EA He HK Re eo he He KK ee aka ae 


Vv 
WE He Me KK] ae ae ae a ak a ae ak 
* 


* 
* COUNT THE * 
* SOURCE * 
* STATEMENTS  # 
ee 
V 
KKH K 
* * 
* AG * 
* * 
a He 


CMP 025 V NO CHART 
FOR AKA 3 tok aa kok 
=CMSOO00 : 
*IDENTIFY SOQURCE* 
: RECORD FIELOS : 


Be ee a 2 ie a 2 aK fe fe ae 2k ae ak 


V NO. CHART 
OR ICR B 3 tok hk ak KK 


* TRANSLATE * 
*OPERATION CODE # 


JO IO too took tatok 
V_ NO. CHART 
BOOK 3 tO RI 
fe C2 I a ok *CMNOOO * 
* x koe * 
--->x EXIT * * PROCESS NAME * 
* * * FIELD sé 
IG RS ROI OR Oi * 
AIO ISI II I a ie 
TO: CMLOO0O 
/OL/AL 
201 IRD 3 4G I II 
*CMYO00 : 
*DECODE OPERAND # 
: SYN * 
SSE EOI Ra I IRI ICR ACK 
V 
o*, 
E3 *, 
o#” SYNTAX "#. YES 
e ERROR ° 
e o* 
*. ° 
eo e%® 
* NO 
V 
CMP 030 o*, 
F3 *e 
o* *. 
e* MACHINE *. YES 
*,. OPERATION  .*%----- 
e *, * 
o 6% 
* NO 
V BD/OL/AL 
eka aC G 3 daa oak 
*CMAO00 * 
#--------------- * 
* PROCESS # 
* ASSEMBLER * 
* INSTRUCTION * 
FIORE RO RA KR 
CMP01O j 
{RH 2 a ee 
* 
* ENTRY * e 
x * 
IE aa a tokio tok 
0 ee oe on eee > 
V 
CMP040 o%, 
J3 *e 
TL CAPL Oooo De * *, 
* * NO .* ANY 
: ENTRY Kans see Rs ERRORS 0 #¥K 
toga AOR Rica ia a wx, o* 
V re. 
foi ok YES 
* * fo tok 
x FS & * * 
x x s->* ES x 
$k 
fot tok 


Chart BB. Main Control Routine (CMPO00) 
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----*UNPACK QPERAND 
* FIELO 


CMP020 o*. 
4° 


.* * 
*, COMMENT eX 
ee .* 
* .* 
Ke 9% 
* NO 
Vv 
Hea 
x * 
* AZ * 
* * 
% 
NO CHART 
eke tek Eo tek ak te se ak te He 
*CMU000 : 


NAME RECORD 
RO ROR HOR RR IRR ek 


#4 HKG GAH 


*CMROOO 
Lina nanan naa SS 


* IN 
* 


NO CHART 
AOI HG sok doko ok ok 


*CMU000 * 
fon em eae ee x 


*WRITE CONTROL/ * 
: NAME RECORDS : 


He he ae ec ae he ae ak ake a a oe oi a a ak 3k 


RHR 4 * 


*CMKOOO 
Kenn eon owen 


Oko aie ak ait eke aka akc si ea ak ak 
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P*WRITE CONTROL/ oe en ee 


RK AG RR ROR ek 
SYSLOG * 


NO CHART 
oR RORB 5 ek tO ok Fk ok 


*CMU000 * 


* * 
BORO AOR RR RR ek te 
et 
* a 
->* Bl * 
* * 
HARK 


CMEO0O 
BAD S eR 
* ENTRY k 
* * 
Fem Rok toi iio tok tok ok 


V 
Bok HICK E Sta tok ok tk 
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MODULE $ASSBO—SYMBOL PROCESSING (PHASE 20) 


Main Storage Map: Figure 6. 


Entry Point: $ASSB1 — entered from Phase 05, Phase 10 
or Phase 21 via FETCH. (For Model 10 Disk System, see 
IBM System/3 Disk Systems System Control Program Logic 


Manual, SY21-0502; for Model 12, see /BM System/3 Model 


12 System Control Program Logic Manual, SY21-0046; for 
Model 15, see /BM System/3 Model 15 Supervisor and lOS 
Logic Manual, SY21-0033.) 


Charts: CA-CK. 


RESIDENT SUPERVISOR 


$ASROT 


Communication Vector . 
Assembler Common 
Disk Data Management 


PHASE 20 CODE (Module $ASSBO) 


SBI000 
SBPOOO 
SBLOOO 
SBMOO00 
SBDOOO 
SBO000 
SBSO000 
SBEO000 
SBCO00 
SBVO00 
SBX000 
SBYOO00 
SBROOO 
SBWO000 


SYMBOL TABLE 
DISK BUFFERS 


Figure 6. Phase 20 Main Storage Map 
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Functions: 
@ Initializes Phase 20 for processing (SBI000—Chart CA). 


® Controls Phase 20 processing of the intermediate text 
file until end of data is found (SBPOOO—Chart CB). 


@ Performs tasks associated with Phase 20 termination 
(SBLOOO—no chart). 


@ Performs Phase 20 processing for machine instructions. 
Symbols are placed in symbol table (SBMOOO—Chart 
CC). 

@ Tests DC/DS specification for valid length and for dup- 
lication. Stores symbol (if present) in table (SBDOOO— 
Chart CD). 


@ Performs Phase 20 processing of ORG and EQU state- 
ments (SBOOOO—Chart CE). 


@ Processes START instruction (SBSOOO—Chart CF). 
@ Processes EXTRN instruction (SBEOOO—Chart CJ). 


@ Updates location counter by object length of current 
statement (SBCOOO—no chart). 


@ Checks for overflow of symbol table (SBCOOO0—no chart). 


@ Checks maximum location counter value (SBCOO0O0—no 
chart). 


@ Evaluates all expressions in the operand field of the 
current source record (SBVO00—Chart CG). 


@ Performs multiplication calculations (SBXO0Q0—no chart). 


@ Moves symbol and its attributes to symbol table (SBYOOO 
—Chart CH). 


@® Counts symbols in table; controls calling of Phase 21 
when table overflows (SBYOOO—Chart CH). 


@ Searches symbol table for a given symbol (SBROOO— 
Chart Cl). 


@ Provides interfaces with data management for disk opera- 
tions (SBWO00, SBW010, SBW100—Chart CK). 
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Input: 
@ Intermediate Text on the Work File 


1. Name Records — used to build symbol table. 


2. Control Records — used to obtain lengths for loca- 


tion counter assignments and to assign symbol 
lengths, attributes, and values. 


3. Term Records — used to obtain length allocation 
for DC/DS statements, location counter changes 
for ORG and symbol length, attributes, and values 
for EQU statements. 
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Output: 


@ Symbol Table — built in lower end of main storage; de- 
signed to fill all space between Phase 20 coding and disk 
buffers. 


@ Symbol table parameters in ASMCOM — used by Phases 
21 and 22 for accessing the symbol table. 


Exits: 
@ Normal 
1. Control passed to Phase 21 on symbol table over- 


flow. 


2. Control passed to Phase 22 when last (or only) 
symbol table is processed. 


@® Error — control returned to scheduler via Halt/Syslog or 
EOJ transients. (For Model 10 Disk System, see /BM 
System/3 Disk Systems System Control Program Logic 
Manual, SY21-0502; for Model 12, see /BM System/3 
Model 12 System Control Program Logic Manual, 
SY21-0046; for Model 15, see /BM System/3 Model 15 
Scheduler Logic Manual, SY21-0033.) 


Licensed Material-Property of IBM 


* * 
* AS * 
* * 
eK 
SASSB1 Vv 
MERKRKASKKKKAKKKEK KE 
MKKKAZRKKKAKKEE SY * * 
* * * IN A Ee * 
* ENTRY * *  LOCAT * 
* * *COUNTER TO ZERO® 
RKKKKKKK KK KK KKH * * 
Mem KK RH KK KH HH KK 
KEKX 
* B5 *-> 
KKK 
SB1900 Vv SB1030 Vv 
KKK BS eK KK KH HK HK He HK AMB, Fhe oh ie oe ae ak sek HK 
. * * BLANK OUT * 
* ESTABLISH * * SYMBOL TABLE, * 
*COMMUNICATIONS * * “ZERO SYMBOL. * 
: * * * COUNT * 
RHEKKRKKRKHK KKK KKK HK RKKKAKKAKKAKKKKKKK 
v 
. ome Vv 
C3. Oe ee ACS ea ta a aa aa 
* Is *, * * 
o* PHASE 21 *. YES *TURN OFF RECALL* 
*, RECALLING .#---- * SWITCH * 
*. 20 : l * 
*. .* * * 
x. * Vv RKAKAKKKKKKKKKKEKCEK 
* NO eK H 
* * 
* B5 * 
* * 
RKEKK 
Vv 
mK HK HDF ee ke ek ek Vv 
* * KKKKOYHS KH KH RK 
* COMPLETE DISK # * 
*DATA MANAGEMENT #* * EXIT * 
* COMMUNICATION * * * 
* * KEK RK KK KK KK KKK 
RKEKKKKKKKKKRKKKK KH 
TO: SBP000 
V KA/OI/AL 
RKKKKE FRKKKKKKE EH 
*xCAMOOL * 
Kane enone ocncone * 
* READ FIRST # 
* BLOCK * 
KKKHKRKKKKKKKKE KK HK 
V CK/OL/A4G 
MM He Me ME FB heat He me Meme ee he 
*S BW 100 * 


Pesce arena amet 


* * 
: READ A RECORD : 
EKER ERE EERE ARE ® 


V 
$C E KG 3K Ee HOR 
* 


* INITIALIZE 
* SYMBOL TABLE 
PARAMETERS 


REKKEKEKKKEKKE KK & 


+e 
HRD 


V 
HHH HH YD eK RH Ke eH 
* 


* ESTABLISH 
* SYMBOL TABLE 
: BOUN DAR TES 


WR KK He RK I HK 


HHH 


Chart CA. Initialization Routine (SBIO00) 


Program Organization 35 


Licensed Material-Property of IBM 


36 


SBP000 


Pieinda. hintaan 
* ENTRY * 
* * 
CRESRERERERE HOR 
eee 
* * 
* Bl *=-> 
seen = V 
o*, S$BPO10 
Bl *. staeen 2essenasens 
o® *. : Pee CURRENT * 
e* CONTROL * YES LOCATION * 
-->*, RECORD panei nna => COUNTER VALUE * 
*. .-* : IN RECORD Ps 
a FhARKEER ERE REREE 
* NO 
Vv K/O1/A4 
eennec exndes 
*S8W100 - 
monk REAO NEXT * 
[ RECORD ba 
HAR EEKEREEEE EERE 


Chart CB. Main Control Routine (SBP000) 


CK/01/8 

TREEKD ZRKEKEERER SE 
SS8WO10 : 
* 


: UPDATE RECORD id 
FREERERBEEREEREKE & 


1 o®, SBLOOO KA/O1/A1 
Be x, REEDS ARETE NEES 
e SCAMOOL * 
o* LAST "ae. VES) —_— | Re ww www nn nn ne e-- * 
wees eeen >*. RECORD r4te2__--- >a WRITE LAST * 
*, 0% BLOCK * 
*. .* * 
*. o® CREA RER REE ER REE 
-#°NO 
V CL/O1/A4 
RERERCERERESE EERE v 
*SBW100 * CHER S RARER ERE 
span eeeqees==-—% *FETCH * 
*. READ NEXT  ®& - 00- ss @eeteecewtoe * 
* "RECORD + EXIT? PHASE 22 * 
* * RERKERER EE HE EEE 
CREREEEERERRERERE 
Vv 
KREREDG SHEREERERE 
* * 
* SET SYMBOL * 
* INOICATORS * 
* * 
* * 
CRREERERRERER EEE 
Vv 
*, CC/01/A1 
EG ee TRHKKES EREKEH REED 
+ #SBMO00 * 
* ACHINE.” c- VES...  .Wewecosdnnseecss 
«2 nS tRue ON 2#oS___- ye PROCESS MACHINES 
*. a ae * INSTRUCTION id 
. ot ti ititi tet. Tt 
* NO 
eee 
* * 
->* Bl * 
* * 
V eine 
o*, 
F4 *. 
o* ° 
o*” ERROR “*. YES 
e RECORD oF eres 
*, * 
K, ®* 
«ot v 
*°NO ek ee 
* Bl * 
nee 
Vv 
$BPO020 o*. CO/O01/A1 
G4” °*, TREKS EREREE EERE 
: *, #580000 * 
#,  -OS/DC enna enn * 
: ‘ * PROCESS DC/DS * 
*. o* * * 
*. os +h EERRERE REE ED EE 
*°NO 
ete 
* * 
->* 61 * 
* * 
Vv ene 
*. CE/01/A1 
Hq, HE RERHS ORE EE 
.* *. *$80000 * 
o® ORG OR *. YES —-_-_—«_ Hemme nnn wnn 
° E o Renn eew ne >*PROCESS ORG OR * 
e *° * E 
*. o% REREERE RE BERR ER EE 
* NO 
kone 
* * 
->* Bl * 
* * 
v keke 
o* CU/OL/A2 
JG” me ERRKE IS ERERRERE RE 
° *SBE000 * 
® © YES —_—_ Ree ne emem enn * 
*. EXTRN @ Reem en onne >s * 
a e : PROCESS EXTRN : 
*. ot RRERRREREREEK EEE 
* NO 
eine 
* * 
->* Bl # 
* * 
Vv keke 
*. CF/OL/AL 
Ke, EREREK 5S ERASERS ER 
° = 56S0 00 * 
NO . a + en * 
--*; START 9p tea oa >. * 
| \ eS * PROCESS START * 
v a CRRERERERERER ERE 
keen * 
* * kone 
* B61 * * * 
->* Bl * 
ahee * * 
xan 


Licensed Material-Property of IBM 


$8000 


_heetaleeeeesese | 
* ENTRY * 
* * 
Pettitt titi tt. y 
: ; | 
Bl *. 82. %. REEREE 3ORREEREEE eh eeeDG eEEKEEEEES 
* * is * * 
o% "e. YES NO * ey} Lp SYMBOL * : SET ON SYMBOL z 
me SYMBOL ete *oneviousiy ee: ABLE ENTRY — encanta’ ero STORE SWETCHS 
e e e 
° m, “* * * 
. .* *. 4 RERERHEREEREREKE DE wkcekeeadeeveness 
| NO * YES 
<a ale te cow dee eee a ee Mam Aad A at sem a esos (0 0 ath a am > a ee a em Dn ee ED ee om ee ee OP a ee ee ee > 
- Vv 
SBMO010 o%, 
C4 ®. 
e* LENGTH *. 
NO .e FOR * 
oon k, INSTRUCT ION «* 
ee * 
e e * 
: | YES 
V NO CHART 
TT Tie tT tt Tet 
*56C000 : 
* INCREMENT 
* LOCATION  * 
* COUNTER VALUE * 
RERKRRHRERERRERER AE 
Vv 
REKKKESG RERKEEE EEE 
* * 
* SET SYMBOL * 
* RESOLVE BIT * 
* * 
* * 
RKERERERERERERERE 
ei ice iene eae > 
Vv 


$BM020 o*, 
Fe *, 


o* *, 
«* (SYMBOL *. NO 
* 0 


e To TOR PE atten 
*.SWITCH ON.* 
*. .* 
*. ot v 
* YES kan 
*« 
* KS & 
* 
me 
V CI/01L/A2 
TREK GG REREERRE RS 
$58R000 : 
: SEARCH SYMBOL * 
. 
CREEK AEREREER ER 
Vv 
*, CH/01/A2 
HG HH RREHS EE EE RR 
.* *. *SBY000 * 
o* *. NO * See ee eee ee ae aa: * 
*: PREVIOUSLY .*#-------- >&S TORE SYMBOL IN# 
*. DEFINED 2% pe TABLE PA 
“ee. ot KRERERE RE RE RE KH HR 
® YES 
eee 
* * 
->* K5 * 
* * 
eee 
eeeee JG RRR RR ERE 
* * 
. *SET PREVIOUSLY * 
SDEFINED SYMBOL + 
INOICATOR  # 
THERA RRERERE RRS EE 
Vv CK/01/B1 S8M030 
EREREKGRRRERERERE 
*SBWO10 * SeRRKS REE RE EEE 
om we ae aD oe ee De o~* 
: UPOATE NAME ‘*-------- >* EXIT * 
* RECORD * A * * 
* * CHERERRREE ERE 
CREEERERRERER EERE 
whe & TO: SBP000 
* * 
* K5 * 
* * 
TT 


Chart CC. Machine Instruction Processing Routine (SBM000) 


Program Organization 37 


Licensed Material-Property of IBM 


$B0000 


gr eal Steet tas 
* 
: ENTRY * 
THERE KKEEEEE KEE tS eke 
* * * * 
* 63 * * 84 * 
* * * * 
ee ke — 
, | 
o*, C00163 V CG/01/ Al $8D110 o*. 
Bl - eTAKEKEG ZRREKEREEEKS 8 7 
o% *. 458¥000 * 0% * 
INO i ee a NO .* SYMBOL *. 
——K, SYMBOL o® : EVALUATE THE * --*, TO STORE o% 
° ° * EXPRESSION * *. SWITCH ON.* 
*. Pe * * *. 7% 
*. ® SEEERERAEREEEEEES Vv ee 9% 
ket * YES keKS YES 
* * eka 
* Jl 8 * KE *& * * 
* * —->* J4 * 
kee kKkee 
Vv cohen 
° o*. 
Cl *, C3 *. 
7 *. o® *. eet 
neo? PREVIOUSLY .” * * EXPRESSION Teeree >s B4 : 
yr ~mFe e e res 
EFINED .* *. ERROR . * 
‘ Pe *. * ERE 
*, we. o* 
* NO | NO 
Vv 
V CI/01/A2 o*, 
ecenany 03 *. 
* ‘ - eeke 
* SEARCH SYMBOL * *. DUPLICATION .%---->* B84 * 
* TABLE * *. o* * * 
* *. o® eeee 
RKEEREREREREESEREE *. o* 
| YES 
Vv Vv 
o*, $80020 o*, 
El *. HERSSE 24RSSREKEERE €3 *, 
Pe ®e * * o® *, eee 
*. NO * SET ON SYMBOL * o% VALIO *. NO * * 
*. PREVIOUSLY aac A. STORE SWITCHS *. LENGTH e Kem ->k BS * 
e DEFINED .* *, o* * 
*. o* *. * REE 
* * skcvaveccasebense *, _* 
* YES * YES 
Skee KE 
* * * x 
->* Hl * 8 FE toma 
* * * * 
Skee eEKE 
Vv V_NO CHART Vv 
reer eererteees BERKEKE FRRKKEEERED e acclcu ole 
$58X000 * Sign | * 
SSET PREY LQUSLY > , shauna pute Gubeetedenbeteatptaden * * COUNT R vatue * 
OEFINED * 2 ret Nt: TOTAL * * MINUS ONE A 
‘ INOICATOR . : LENGTH : . SYMBOL VALUE ; 
RERKKEREEKEKERRED ERREREREEEEREEERE SHEAKERERREKREEEE SE 
Vv CK/01/B61 V_ NO CHART Vv 
SHREK 1 SRKEKERKE E REKKEGZEAKEREEKRE & SHEER GGEESEKEERED 
*S$BWO] * $56C000 * * * 
wmmmmmmmmmm mmm a ct ate ec letanteateted et * SET SYMBOL * 
* * * ane ad * * RESOLVED * 
* UPDATE RECORD * * LOC ATION * * * 
* * * COUNTER VALUE * * * 
RESKEKERERESRE EERE DE SEKEKEEEKERERARE & EEEKAEKKKEAREEEEERE 
SERS 
* * 
* Hl *-> 
* * 
KER Vv 
$BD030 V CK/01/ A4 o%, Vv 
SEKKSY | KEKEEEREE SE H3 R, EREKEHS EEREEEERESE 
*SBW100 * o® e, * * 
tmnt READ NEXT * *. TO STORE PY tata) * ASSIGN LENGTH * 
* RECORD : *. SWITCH ON. * | : : 
e e 
KERKKKEARKEREEEER | Re ie Vv RRERKKKEEKEEKERE SE 
kee 
kee kee = & * eee 
* * ** FE * & * 
* Jl *=-> ->% KG & * * * J4& t-> 
* * x kkeat * * 
eee Vv kee cea Veuvoryae 
o® 
$60035 Jl, : RERKK JG REREEEEERE 
o* *. es ets sS8Y000 : 
o* RROR me VES BB ee 
*, RECGRO et---->8 B84 * > STORE THE * 
*. o* * * * SYMBOL * 
*. o® Seen * * 
*. o% HHEREKKEREKRERRERE 
* NO 
eke 
at 
Vv * K4& t-> 
eek * * 
* * eet 
* 83 * 
* * Vv 
eeee KEKERKG OHERKERERSE 
* * 
* EXIT * 
* * 
KEEEKEKKEREREEE 


TO: $B8P000 


Chart CD. DC/DS Processing Routine (SBD000) 


Licensed Material-Property of IBM 


$80000 
#4SSALEREERE ORD 
* * 
* ENTRY * 
* * 
RARE BREE KE SEE 


v 
ore 
a 


ea “*. aes 


e e Rewmmewuway 


* ¥. 


o* *. NO 
*, SYMBOL e Fem 
* * 


seneen 


V_ CI/O1/A2 
SHOERE | 8948S S RERE 


*SBROOO * 


a ae EP Ee Ee Oe —rt | 


* SEARCH SYMBOL * 
* TABLE * 


* * 
RRRSEKKSKREK EK KARE 


¥e 
*. 


$80030 v 
SESE SY] BARRE EDEEE 


* * 
* SET_ON SYMBO 
e8 STORE WETCHs 


: 
Seas ee SeRERER EERE 


eresasiateseasion. 
sSoul 0 : 
* READ NEXT * 
. RECOR ; 
SERERS BESS EEE DRED 


V_CG/OL/AL 
RHEREK 1 EREKE EERE E 
* 


*SBV000 


* EVALUATE THE * 
. EXPRESSION Ps 


REKKKKREKKEKS KAKS 


* SET ON 
eS * PREVIOUSLY * 
9 Bee enw nme >m * 


* 
FERKKKRAKAKKKAKES 


bard bob ae 
2 CbunteR VAC De 4 


*SPREVIOUS MYALUE : 
errrr rr rer Terr 


ERB SAKES ERE EH 
EXIT * 
HEH RR HK RE 
TO: SBPOLO 


a. th aw Ss eeanacgenabeeotane 
* 


SS8WO1O 


eee ae ee ew ee am erm an ne eee 


>* 
; UPDATE RECORD ; 
CHKERAEREESEEEEE S 


+ 


PEF ENE 
INDICATOR z 


Chart CE (Part 1 of 2). ORG/EQU Processing Routine (SBO000) 


V 
RARE CG RRR EERE 
* * 


* BUILD SYMBOL + 
WITH * 

# SYMBOL RESOLVEDS 
cakasauneceecenes 
RUKH 

* * 

* D4 *-> 

* * 
REE 
senneDg aoe 
#SBY000 


. “STORE THE * 
* "SYMBOL * 


* * 
RRKKKEKAKRARKERKEKE 


Vv 

KRRKEG ERRRERERE 
* * 
* EXIT * 
* * 

EKER AEE EERE E 


TOs: S$BPOOO 


Licensed Material-Property of IBM 


$80065 o*, 
B5 * 


o*® *. 
e* SYMBOL *. NO 
TO STORE eterna 
*. SUETCH ot * | 


Program Organization 39 


*001% 
* C2* SBO070 CG/O1/Al 
*x* * HREKKKAPKKKKKKK KKK 
i *SBV000 : 
------ >* EVALUATE THE * 
* EXPRESSION * 
me he he He ae ke He HK Ke HK HK KK 
V 
o%. 
B2 ky 
o* * 


*. 0 RAND 7s 
*. VALID . | 
“ee oe” V 
*° YES 4k 
* * 
* K2 * 
* * 
eK 
Vv 
s80080 sw & o*, 
F C3° **, 
e e o* *, 
.*° SECOND “*. YES -*° SECOND “*. NO 
#,  OPERAND .#-------- >*, OPERAND .#---— 
; .* *, VALID  .* 4 
*. * *. : 
*, .* *, * Vv 
*°NO *° YES eet 
* * 
* K2 * 
* * 
Cosseneeees ‘ ee 
$80085 v o*, 
$k RD 2 03. *, 
* * .* *, 
* SET DEFAULT * YES .* SEGOND *, 
; VALUE TO ONE . See OPERAND 0 .* 
* * ae. _* 
errr Terr tT Tet tart *. ot 
NG 
[See eee 
$B0090 iw $B0095 __o*, 
E2° °*, E32” “*, 
.* *. * *. 
.*° THIRD °*. YES -*” THIRD “*. NO 
#.  OPERAND .#=------->#; = OPERAND «= #—-=— 
: .* *. VALID .# l 
*. .* *. .* 
*. t +. 4 v 
*° NO * YES rer ty 
* * 
*K2 * 
* ® 
ke 
Vv 
se ack F Dk 
* * 
* SET DEFAULT * 
* VALUE TO ZERO * 
* * 
* ps 
errr tt et tt tat tt 
< ree wee eww we ow cr aw eran oe on ow oe en oe 
$80120 Vv 
HRC IEE REREE EEE 
* * 
* DETERMINE NEW #* 
* obOSATON vet 
: COUNTER VALUE ra 
ree Tete tte ttt 
Vv 
o*. $80190 
H2. °*, roeerr ere rt tt tt tt. 
e* LOC. *. * * 
e* COUNTER *,. NO * SET ERROR * 
*, VALUE eX eee ee >* INDICATOR & 
*. VALID .* * * 
*, * * * 
*. ot rrr TT TT ert Tt tt tt 
* YES 
Y) V CK/01/ Al 
TTT RPr TTT TTT TTT err TREY Te Tet tt tes 
* * *SBWO0O0 * 
-* SET LOCATION * Kem me meee es oem —m * 
* COUNTER VALUE * * * 
: : : UPDATE RECORD ea 
ETT TTT TTT TT tt wTTTT TT ttt ttt ttt 
kde 
* * 
* K2 #-> 
* * lekennen mona eee soeewe s 
rt 
$B0200 
eT TT elTrr tt ttt. 
* * 
* EXIT * 
* & 
Pertrter TT Ted tt. 


TO: SBPOO00 


Chart CE (Part 2 of 2). ORG/EQU Processing Routine (SBOO00) 


40 


Licensed Material-Property of IBM 


$8S000 


$BS060 
aad a acacadag 
YES * SET ERROR * 
w-=----->* INDICATOR * 
A * 
* * 
| REKKKKKAKKKKEKKEERE 
aERK 
* * 
* 85 * 
* 
£KKE 
V CK/O1/A 
RRKKAC5 SHERKKEKEKEK 
#SB W000 * 


* * 
: UPDATE RECORD [ 
REEEREKEEEAEEES EK 


HHH 

* * 

* 05 *-> 

* * 

neee | Y 
* 


05 *. 


o* *, 
NO .*® SYMBOL *. 
~-—k, TO STORE o® 
| *.SWITCH ON.* 
*. o* 
*. 
eee * YES 
* * KEKE 
* 54 * * * 
* * ->* HG * 
eek & * 
KEKE 
NO 
| 
V 
ekee 
* J4 * 
ee RH 
2 


+eeRAL RREERE Hee 
* ENTRY * 
RERKEEREREE ES BEE tt 
* BG # 
* * 
sh 
Vv Vv 
o%*. $8S030 o%, 
Bl *, 4 *. 
r *, eke * 
o* *. NO * e* LOCATION *. 
*. SYMBOL eo k—--->* B4 * *. COUNTER e 
x, e * e SET o* 
*. .* eee *. .* 
*. .* *, ot 
| YES | NO 
; t 
Cl ®. CHEREC ZEEE ERERRED co” Te 
.* , * * o* *. 
*. YES *LEAVE LOCATION * NO .* START ¥*. 
*: PREVIOUSLY .#---~ #COUNTER AT ZERO®<-----~--*, OPERAND =. 
~ DEFINED o* * # *, .* 
*. .* * * *. * 
gig Vv wrettited ttt tet t. 
*° NO em & *° YES 
* * eeee 
* Hl ® * | 
* * ->* 4 ® 
eens 
eeee v 
V CI/OL/A2 o* 
KREE ED | HERES REESE hy a 
*SBROOO * ° . 

2 ae ewan an ae ae anon an HE NO e * S I NGL E * e 
* SEARCH SYMBOL # ~—*, SELF-DEFINING.* 
‘ TABLE * *. TERM ®t 
errertre te ttt. "we. Ot 

te «YES 
eee 
* B5 * 
* E4 #-> 
eens 
Vv eon 
.*. $BS010 v 
1 - RECHKEQRRERERE REE eERRKEG ERERRE REE 
.* *. * * * * 

.* *. NO * SET_ON SYMBOL * * SET LOCATION * 

*: PREVIOUSLY .*-------->#TO STORE SWITCH * COUNTER TO. * 
*. DEFINED .* : re : VALUE : 
ae a CRGEERRE SERRE RENE CEKERERERERE REESE 
* 
‘ES een 
* * 
->* Hl # 
* * 
eens v 
v o*e 
CHEK ] REE RE REESE Fe &, 
* * .* *, 
*SET PREYEGUSLY * o* VO8 Ot *. 
* DEFINED * *. TO STORE o® 
; INDICATOR . *. SWITCH ON. * 
CREE ER EREE ERE EERE "ee ot 
«YES 
Vv CK/01/61 Vv 
TRRERG 1 O84 4S RERED HRSEEGS EREREERREE 
*S6W010 * * ASSIGN LOC. * 

meena an n- == === 8 * COUNTER VALUE * 
* * * TO SYMBOL AND * 
* UPDATE RECORD. * * RELOCATABLE # 
+ * #RESOLVED SYMBOL* 
CH GREREREE HEROES SE EERE RKRERERERERE 

Keee *eee 
* * 

* Hl *=-> * H4 *=> 
* * 
eens eee 
$8S020 V CK/O1/A4 V CH/O1L/SA 
Stan aeeseseens CHREEHG RESRRE ERE E 
gsewi0 M *SBY000 [ 
* READ NEXT * * STORE THE * 
: RECORD : pf SYMBOL : 
CREEK EERE EEE REE eRRERERRERRE REESE 
nee 
* * 
* J4 > 
* * 
Vv hee 
o*, $BS080 
Jl *. 
o* CHRE IG REREREERE 
YES * 
*. ERROR o Fm . EXIT : 
*e. x \ EREREEEREREEREE 
**°NO onan TO: $BP000 
{ * 05 * 
KEK whee 
* * 
* BG * 
* * 
een 


Chart CF. START instruction Processing Routine (SBSO00) 


Licensed Material-Property of IBM 


~ 


Program Organization 41 


42 


KK tk 
* * x * 
SBV000 * AG * * AS * 
* * * * 
fteletok A ietatok a dokok RK Hk ak 
* * 
* ENTRY * 
* * 
SOOO IR ik tekeg o*, Vv Vv 
A3 *, sO AG aOR i ek +ERKREAS REE EE RE RK 
eK .* *, * ADJUST * * * 
* * o* *, YES * EXPRESSION * * SET EXTRN * 
* AZ #---->*, RELOCATABLE .*-------- >* RELOCATION * * NUMBER AND * 
x * *. .* * COUNT * * ATTRIBUTES * 
AR *, * * * * * 
Pars. SI Ra I $k 90k fo CRO to Ok tok 
Vv *°NO 
$e ORB tok tok ke dotoieok *aRK 
* * * * 
*ZERO OUT TOTAL * * B3 *-> 
* “WORK AREA * €{------------------------ ? 
eC a V V 
* * ee o*, 
fe Ooi oo doko tokok B3 ox, $C EB G tok ke BS *, 
o* FIRST x, * . * o* *. 
a ok tk -* TERM OF *. YES * SET IMPLIED * ‘ l 
* *. OPERAND =, #-------- LENGTH OF #---- *, MODEL _ 
* Cl *-> - ONE. * OPERAND ONE * ‘ ‘ | 
ot *, .* * * *. o* 
* Vv ee ok foo RRA OY *, ot Vv 
SBVO1O o%, * NO tak * 10 ad 
Cl *, pf * * x * 
e *ANOTHER*. sO Do ok kok Vv * D3 * * Cl* 
o*EXPRESSTION *. NO x * a. * * ‘ 
e IN e #e a= = >* RETURN * C3 *. AKRERCGRERERKEERE | TEE 
*. CPERAND .* A * o* FIRST *. * * V 
*. -* earn ee eee -*” TERM OF *, YES * SET IMPLIED # eso * 
ree abe *. OPERAND  .%-------- >* “LENGTH OF * - $s 
YES Picaduluars - TWO. * OPERAND TWO * *"COMPLEX “*.~ NO 
*. -* : * *, RELOCATABLE .#---- 
* C2 * *. ok rrr ter errr rier rs. : : 
* * * NO e EXPR e | 
ok ek sok KOK *, o* 
Vv : . a YES sees 
Be RIED | ako tk tok aes SSE EE ee Ee ee _ *  * 
*INITIALIZE REF.* paae * C1* 
* WRELOCATION © * Vv anes eeae 
: COUNT ; SeeeeD oases eaten < _ % 
be : eet * ARITHMETIC * ria sae 
eM he He ak ah he He ae he He oe He ke a ake kK * * * OPERATION * * 
2s * REQUESTED = + neue 
aah alas PTS pre nene = 
V Vv 
o*, Vv030 V CK/O1/A4 oe o*, 
El *, ek oR E 2k dott kk E3 *, EG *, $A RE 5 ke Re 
o* *, *SBW100 * o* LAST *. o* e * SET ERROR * 
a. Tre. eee >* READ NEXT * eee. EXPRESSTON rates ># 2 RELOCATABLE 2s pe MOINYALTON” # 
« Se eee eee m—— te ee ee e Oe nie ee * 
*. THROUGH . * RECORD * e * - USAGE .* * neLOua ABLE * 
e o* * * *, o* Re o* * XPRESSI * 
xe 4k POEL I Err eter rer et. Vv . 6% *. 4X Reenaee star seskee 
* YES HK tek * * YES 
* * * 
* —2 * 
* * ->* C2 * 
Ce oe wen wm wn www we we ow ee . KK Ke 
Vv * kk 
SBV040 a*s V o*, 
Fl *, We tk E 2k a a RK FEEKK EG EEK ARR E H FS xk, 
*°” Term “x. NO * SET ERROR * = elatuE OR Ss COMPLEX“. NO 
*, ~~ RECORD 9 t= === > INDICATOR ON *---- SEXPRESSTON AND # o=->#. RELOCATABLE LHe cms 
*, r * * ATTRIBUTES * » EXPR . | 
*, .* ; * * * *, o* 
*, Ae RoR ok i tok tok ok kok Vv PEE tri rirret irr. ty *. * Vv 
* YES ee * YES * eke 
* * * * 
| * C2 * * Cl* 
* x x & 
ae KK ek 
Vv Vv Vv 
o*, o%*, eX. 
Gl *. G4 *, G5 *. 
o* .* x, .* * 
° « 15 e e YES 
*. SELF pou gee *. MODEL et----- *. VALIO ekemmn 
; .* | "me a “e, 
o 0% Vv *. o* e e® Vv 
* NO eK 10 * NO + he 
* tr. x 
* B3 * * Cl* 
* ->* Cl * x  * 
hk xe 
Vv KK 
o*, V 
H1 *, FORO H 2k Rok tok sade $C IORH 3 tok #9 HS RR RE 
o* ae * * * * neae * * 
°* LOCATION *. YES * SET LOCATION * * TERM VALUE _ # & * SET ERROR * 
*, COUNTER .#*-------- >* COUNT #-------- >* EQUAL CURRENT fa -->% AG : *  INOICATOR ¥*---- 
* .REFERENCE .® *INITIALIZED BIT* * VALUE OF L.C. # * * 
*, .* * * * ori * * 
*. .* Seo ao RK tote SOIC ICR RK aOR REAR ER REE OY 
* NO ik 
x  & 
* Cl* 
x & 
Ck 
Vv 
SBV060 o*, CI/OL/SA2 o*, CL/SOL/SAL 
J *, TILL ttt ttt. J3 x, 1 KG 2 RR PT LITARL Eitri ttt 2. 
o* ° *SBROOO * o* *e * SET UNDEFINED * *S BWO00 * 
o* MBOL *, NO = *e een wer ne nnn m= * ° SYMBOL *. NO * SYMBOL ANDO KE Rm mm em om * 
*. RESOLVED o he >* SEARCH SYMBOL *-------- >*. RESOLVED IN .%-------- >* EXPRESSION Keen >s UPDATE RECORD * 
. ° TAB « TABLE .* * ERROR * * WITH ERROR * 
* o* * *. *® * INDICATORS * * * 
*. ok SO IO ek ROR a. ROR RRR AOR Se a AOR a ROR 
* YES * YES 
+e * ae 
* * 
* KI | *->* C2 * 
* * 
* KR Vv * ee 
SBV090 *, v 
KL aK OK 3 RO a OR tk 
o® *. RK * * 
< * YES # * *MOVE VALUE AND * 
*, EXTRN o#---->* AS * * ATTRIBUTES TO #---- 
ah. 032 o* * * * TERM FIELD # 
*, .* mK * * 
*. * So Ro oY 
* NO fe kk 
* * 
* Kl * 
Vv * * 
tk * 
* * 
* AZ * 
* * 
* ke 


Chart CG. Expression Evaluation Routine (SBV000) 


Licensed Material-Property of IBM 


SBYO000 
POTEALES TR EL EES 
x 
* ENTRY * 
* * 
EERE AREER EAE 


V 
AHR B 2 a 


* * 
*MOVE SYMBOL AND*® 
*ATTRIBUTES INTO* 
* SYMBOL TABLE * 


* * 
Tre r rer tert ta tt 
¥ SBYOLO CK/01/A4 * 

C2” **, Sho ecaueaseeeese C4” ow, eT TT aT Tit ttt ttt 

o* * *SBW100 * o® *. * * 

o* TABLE *,. YES Kem mene mm ew we wre * e* CONTROL *. YES * SET OVERFLOW * 
*e FULL @ Korn wow >* READ NEXT Kamm -—>*, RECORD @ Ken wen en = > * INOICATOR * 
K. o* A * RECORD * *, * * * 
*, .* * * x. * * * 

*. ot reTrTrrttT Tt at Tt" x. .* WeTTerTterTTTer ttt. 

s * NO 1 NO 

V CK/01/B81 

Vv #44 EDS $e 
TTT OPT Titer ie *SBWOLO * 

* hoacen aieaneces 

* — RETURN * * REWRITE * 
* * + onSYERFLOW on f 
TTT Terr. TT tt tt ; *CONTROL RECORD * 
fe 

Vv 

HARES CE ke 

SFETCH : 
*WEXIT: PHASE 21 * 

Pere rere te tt 


Chart CH. Store and Count Symbol Routine (SBY000) 


Program Organization 43 


Licensed Material-Property of IBM 


SBROOO 
2K A 2k RR 


* 
* ENTRY * 
* * 
OR AOR ROR Fok RO IK 


V 
se IO B 2k tok i tok ited 
* * 


* * 
SHASH THE SYMBOL® 


* * 
Be a a a ae ake ae ie of ae ate ae ate ak ak ae 3k 


Be 23 doin; Roi i fot k 


* * 
*CONVERT HASH TO* 
*TABLE ADDR. AND* 
* SAVE * 


* 
IH Me he oe he ae a I ae ae ae ah ae ake ae oe 
jiesewoueses 
V 
o*, 
D2, “*, 
* x, 
‘ EMPTY . YES 
x2 LOCATION .%--—4 
we, * 
. ek V 
* NO eK 
* * 
* E4 * 
* * 
KK KK 
V 
cies 
E2° “*, 


o* *. 
e* SYMBOL x, 
*. MATCH o * 
* * 


V 
Se he ae a he a aie a ae aie a ae ote 
*« 


INCREMENT 
POINTER 


tt Ht Ht 
Ht tt 


RERERKHEE EERE R KEKE 


V 
IK KH Ok & 
*SET POINTER TO_* 
*START SEARCH AT* 
f~—-—%* BEGINNING OF * 
TABLE * 


* * 
Re a ae ae 2 ae a ae cc ae ae a fe ak a he 


Chart Cl. Search Symbol Table Routine (SBROOO) 


44 


We He a He Ee He ok ae aK a ok 
* * 


* SET SYMBOL * 
>* DEFINED * 
: INDICATOR : 


Me ee ee ee Ree a ic a ak fe a ae 
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«IN PHASE . 
*. 21.4% 
#, ot v 
* NO tk a 
* * 
* J2 * 
a ie ok ok 
v 
eRe we Me C Dk hc ok he oe ok oh oe ak 
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#CLEAR ATTRIBUTES 
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fe 
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x * Ko ween new en * 
RETURN * * SEARCH SYMBOL * 
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ROCIO ROR io kc ak ak * * 
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* * 
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- *PREVIQUSLY *. NO $2 sae ee 
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ee ae He He HK eK a he ho a RKKKKKKKKKKKKKKK 
| v 
V_CK/0O1/B1 es 
eM He eH HD ak He Be oe a We He oe a oe a ae ae ee Fah ak ke ke a oe oe H4 *, 
*S BWO 10 * * * : *, 
tan e aan ~—~---- *ADD SUBTYPE TO # YES .*° VALID “*, 
* UPDATE NAME * * TABLE #in-----==%) SUBTYPE oo 
* — RECORD * * * ‘ .* 
* * * * *. .* 
he 9 eae ae ae ah ae oe ak hc a ae of ae ae 3c He Re HE a a ae he ee he ae he ake he ak *, .* 
*° NO 
% Kk 
* 
* J2 *-> 
ae 3 A 
V SKLO1Z41 
eH He Me He A ee a ae ae oe Oe ae a he ok 
MM Hef De we ah we ake aie oe ate *SBWOOO ba 
* PO i te a 
* EXIT * ------~---------- * UPDATE WITH # 
* * RRO * 
WR he ae i ake a a ak oe ae a ak a ae fe * 
TO: SBPO00 rope rore rir. Dr me 


Chart CJ. EXTRN Instruction Processing Routine (SBEOOO) 
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SBHOO0 We ee AD ee eo eo oe ke 3 
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* *RECORD TO WORK * 
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* * * ERROR * 

ae he Re he ok ie a a KK ok ok 
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AR Ae a a oe ac ake a fe a oe ai ae ee oe 
V 
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* * 


*xUPDATE CURRENT * 
* RECORD * 


* * 
He ee a ae a ae ake ake fe a af ak ak ok ae 


He He ok 2 

* * 
t->* SG x 
* * 


Ke 


Chart CK. Disk Data Management Interfaces (SBWOO0O) 


SBW1LOO 
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* * 
x ENTRY * 
* * 
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V 
He IS BG fea oe oe a ok oe ok ok 
* * 
* * 
*SET UP LINKAGE * 
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* * 
He ee ee a 2 a oe ae a 2k ye ae 2h a 


V KA/OL/AL 
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*CAMOOL * 


* WRITE CURRENT * 
* BLOCK * 


* 
AR IK Be ei ake oe I ae 3 2 3k Ke ak 


* 
pend NEXT BLOCK? 
he he he ae ee ae fe ake 2 ah ae 2k ae ae 2 3 


Vv 
Re IO HG kai k dak kato 
GET CURRENT 
RECORD 


Ht OH He 
% Ht 3t 46 Ht 
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Vv 
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MODULE $ASSFO—SYMBOL TABLE OVERFLOW 
PROCESSING (PHASE 21) 


Main Storage Map: Figure 7. 


Entry Point: $ASSF1—entered from Phase 20 via FETCH. 
(For Model 10 Disk System, see /BM System/3 Disk Systems 
System Control Program Logic Manual, SY 21-0502; for 
Model 12, see /BM System/3 Model 12 System Control 
Program Logic Manual, SY21-0046; for Model 15, see /BM 
System/3 Model 15 Supervisor and |OS Logic Manual, 

SY 21-0033.) 


Charts: DA-DD. 


RESIDENT SUPERVISOR 


$ASROT 


Communications Vector 
Assembler Common 
Disk*Data Management 


PHASE 21 CODE (Module $ASSFO) 


SFPOOO 
SFTOOO 
SFNOOO 
SFSO000 

SFWOO0O 


SYMBOL TABLE 
DISK BUFFERS 


Figure 7. Phase 21 Main Storage Map 


Functions: 


® Controls Phase 21 processing of the intermediate text 
in $WORK2 (SFPO000—Chart DA). 


@ Processes intermediate text term records, resolving all 
symbols defined in the current symbol table (SF TOOO— 
Chart DB). 


@ Tests name records for previously defined symbols 
(SFNOOO—Chart DC). 
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@ Searches the symbol table for a given symbol (SFSOOO— 
no chart; functionally the same as SBROOO routine in 
Phase 20). 


@ Provides interface with data management for disk opera- 
tions (SFWO00—Chart DD). 

Input: 

@® Intermediate text in $WORK2. 

@ Symbol table. 


@ ASMCOM-—symbol table parameters. 


Output: 
@ All output is to $WORK2 


1. Intermediate Text 
a. Symbols in the term records that are defined in 
the present symbol table are updated with the 


symbol’s value and attributes. 
b. Name records containing symbols which are 


previously defined are updated with a previous- 
ly defined symbol indicator. 


2. Symbol table entries — if a cross reference has been 


requested, all symbol table entries are added to the 
end of $WORK2. 


Exits: 


@ Normal — control passed to Phase 20 for continued sym- 
bol processing. 


@® Error — control returned to scheduler via Halt/Syslog or 


EOJ transients. (For Model 10 Disk System, see /BM 
System/3 Disk Systems System Control Program Logic 
Manual, SY21-0502; for Model 12, see /BM System/3 
Model 12 System Control Program Logic Manual, 
SY21-0046; for Model 15, see /BM System/3 Model 15 
Scheduler Logic Manual, SY 21-0033.) 
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| ere * 
setae >* * 
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me oe KKK 
V KA/OL/AL V CC/01/A3 
TT ETL ISE TET TTT TTS TTT TIPLE TT TT eT 
*CAMOOL x *SENOCC * 
Pia cawe owe eo eee * Sh ia res ae lies i * 
* *WRITE LAST * & * PROCESS NAME * 
* * BLOCK * # * RECCRD * 
x * * * * * 
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Chart DA (Part 1 of 2). Main Control Routine (SFPO00) 
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Co/OLSA 
SHEKHEK SHER EERE KEK 
#SFTOOO * Hm 
Rew ew ew ee ee ee * * *% 
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* * * * 
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# TURN RECALL * 
* SWITCH CN * 
* * 
* x 
MRK RK Ke eK 
V 
KKK HF KHER 
*FETCH * 
tos an ee tow ee hee * 
*#EXIT: PHASE 20 * 
RRR KKH KEKE KK KK 


Licensed Material-Property of IBM 


Program Organization 47 


V KA/OL 
Be HRB D2 Rak ak ae ok 


*CAMOO1 
kLnaccnno naa 


*READ LAST BLOCK* 
* OF FILE : 


* 
RK a oi 2 ale ae fe a 2 oe a a ak 3 


V 
SFPO020 o*. SFPO 
C2 * 
o* *, * 
.* * * 
*. SYMBOL 2 k-------- >* 
* * * 


ae ree 
* 

INCREMENT 
POINTER 


% Ht 


Be eR i a i a a ai he i a 2 ke 2 a 


Keak HKD) 23k 
*SFW1LOO 

#2 +--+ * 
* ADD SYMBOL TO * 
* WORK FILE * 
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Me oe aK ak a ee ake 2 2c i 3K 2k of 


HA 
+ D> 
#™~ 
#O 


Vv A 

Heh HHKIKE DX ak ak * 
*CAMOO1 * 
* 

* 


* WRITE LAST 
* BLOCK 
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SEO RG Rok aa sok xtc 
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HK Hk G 

* READ FIRST * 
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* x 
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Bee HK A FY De a aK a ae a ate ae 2k 9c 
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* * 
*SET END SWITCH * 
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* * 
Be A a eC ae eC aK Re a a ak 2 ke ok 


Chart DA (Part 2 of 2). Main Control Routine (SFPOOO) 
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SFTOOO 
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Chart DB. Term Record Processing Routine (SF TO0O) 
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DD/OL/AL 
RERREHG EEE KER EEE 
*SFWOOO * BE e me 
Ree mm ew meee mown * 
* tam nm nnn >* EXIT * 
* UPDATE RECORD * A * 
* * | HH a RK KK 
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SFNOOO 
ete ok ke A 3 Ke ok ek 
* 
* ENTRY * 
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Chart DC. Name Record Processing Routine (SFNOOO) 
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Chart DD. Disk Data Management Interfaces (SFWOO0O0) 
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MODULE $ASSSO—SYMBOL SUBSTITUTION (PHASE 
22) 


Main Storage Map: Figure 8. 


Entry Point: $ASSS1 — entered from Phase 20 via FETCH. 


(For Model 10 Disk System, see /BM System/3 Disk Systems 


System Control Program Logic Manual, SY21-0502; for 
Model 12, see /BM System/3 Model 12 System Control Pro- 
gram Logic Manual, SY21-0046; for Model 15, see /BM 
System/3 Model 15 Supervisor and |OS Logic Manual, 
SY21-0033.) 


Charts: EA-EE 


RESIDENT SUPERVISOR 


$ASROT 


Communication Vector 
Assembler Common 
Disk Data Management 


PHASE 22 CODE (Module $ASSSO) 


SS1000 
SSPO000 
SSLO00 

SSTOOO 

SSE000 
SSU000 
SSS000 

_ SSWO00 


ESL Table 


SYMBOL TABLE 
DISK BUFFERS 


Figure 8. Phase 22 Main Storage Map 


Functions: 

® Initializes Phase 22 for processing (SSIO00—Chart EA). 
® Controls Phase 22 processing (SSPOOO—Chart EB). 

@ Performs functions associated with termination of Phase 


22 (SSLOOO—Chart EC). 
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@ Tests each term record for an unresolved symbol. Re- 
solves those symbols in the present symbol table 
(SSTO00—no chart; functionally the same as SFTOOO 
routine in Phase 21). 


@® Builds ESL (External Symbol List) table entries for valid 
EXTRN and ENTRY statements (SSEQOO—Chart ED). 


@ Adds EXTRN and ENTRY entries to ESL (SSU000—no 
chart). 


@ Searches symbol table for a given symbol (SSSOQ00—no 
chart; functionally the same as SBROOO routine in Phase 


20). 


@ Provides interface for disk data management (SSWO00— 
Chart EE). 


Input: 


@ Symbol table in main storage. 


@ Associated symbol table parameters in ASMCOM. 


@ Intermediate text in $WORK2. 


Output: 


@ All term symbols that are defined in the current symbol 
table are updated with their values and attributes in the 
intermediate text. 


@ Symbol table entries — if a cross-reference has been re- 
quested, all symbol table entries are added to the end of 
SWORK2. 


@ ESL table passed to Phase 29. 


Exits: 
@ Normal — control is passed to Phase 29, ESL output. 


@ Error — control is returned to scheduler via Halt/Syslog 
or EOJ transients. (For Model 10 Disk System, see /BM 
System/3 Disk Systems System Control Program Logic 
Manual, SY21-0502; for Model 12, see /BM System/3 
Model 12 System Control Program Logic Manual, 

SY 21-0046; for Model 15, see /BM System/3 Model 15 
Supervisor and l|OS Logic Manual, SY21-0033.) 
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Chart EB. Main Control Routine (SSP000) 
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MODULE $ASPE0 — ESL OUTPUT (PHASE 29) 
Main Storage Map: Figure 9. 


Entry Point: $ASPE1 — entered from Phase 22 via FETCH. 
(For Model 10 Disk System, see /BM System/3 Disk Systems 
System Control Program Logic Manual, SY 21-0502; for 
Model 12, see /BM System/3 Model 12 System Control Pro- 
gram Logic Manual, SY21-0046; for Model 15, see /BM 
System/3 Model 15 Supervisor and |OS Logic Manual, 
SY21-0033.) 


RESIDENT SUPERVISOR 


$ASROT 


Communications Vector 
Assembler Common 
Disk Data Management 


$ASPRC (see Section 5 for 
description) 


Printer Data Management * 
MFCU Data Management * 


PHASE 29 CODE (Module $ASPEO) 


PEI!000 
PEOQOOO 
PEPOOO 
PESOOO 
PELOOO 
PEGOOO 
PEROOO 
PEWOO0O0 
PEX000 
Working Storage 


ESL TABLE AND DISK BUFFERS 


* Model 10 only. 


Figure 9. Phase 29 Main Storage Map 
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Charts: FA-FI. 


Functions: 


Initializes Phase 29 (PEIO0O—Chart FA). 


Prints OPTIONS record(s) and a summary of selected 
options (PEQOOO—Chart FB). 


Punches an absolute loader (PEPOOO—Chart FC). 


Sorts, builds, and puts out ESL (External Symbol List) 
object records (PEPOOO—Chart FC). 


Prints the ESL table (PESOO0O0—Chart FD). 


Performs functions associated with termination of Phase 
29 (PELOOO—Chart FE). 


Prints the printer listing header and counts pages 
(PEGOOO—Chart FF). 


Provides disk data management interface (PEWOOO— 
Chart FG). 


Provides print module interface (PEXO0O0—Chart FH) and 
punch module interface (PEROOO—Chart F 1). 


Input: 


ESL table. 
Parameters in ASMCOM. 
1. ESLCNT — contains a count of ESL table entries. 


2. OPTONS — contains LIST/NOLIST,DECK/NO- 
DECK, REL/NOREL, and OBJ/NOOBJ options. 


3. OPTCNT — count of control statement records. 
4. MODULE — module name. 
5. TITLEN — TITLE name. 


6. ESLTBA — ESL table address. 
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Output: Exits: 


@ If DECK and NOREL are specified on the OPTIONS @ Normal — control is passed to Phase 30 (module $ASPSO). © 
statement, an absolute loader is punched. : 


@ Error — control is returned to scheduler via Halt/Syslog 


@ \if DECK and/or OBJ is specified, the ESL object records or EOu transients. (For Model 10 Disk System, see /BM 
are placed in the $WORK file. System/3 Disk Systems System Control Program Logic 
Manual, SY21-0502; for Model 12, see /BM System/3 
@ If LIST is specified, the ESL table is sorted, then printed. Model 12 System Control Program Logic Manual, 
SY 21-0046; for Model 15, see /BM System/3 Model 15 
@ The following information is passed to Phase 30 via Scheduler Logic Manual, SY21-0035.) 
ASMCOM: 
1. | PAGCNT — current printer page size. Working Storage Block: 
2. LPSIZE — current printer line size. @ Contains all working storage and data constants required 
for Phase 29 processing which are not in the communica- 
3. Other miscellaneous areas of ASMCOM are initial- tions modules ($ASROT, $ASPRC). 
ized. 


@ Contains equates for ASMCOM references. 
@ The listing header in the printer communication module 
$ASPRC is initialized for the source/object listing done 
in Phase 30. 
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4 .*® EXTERNAL *. YES sree IN_AN ESL * / 
/ *. BUFFER oe ¥---~----- ENTRY * / 
/ *.SPECIFIED.* / 
/ *. .* * * / 
/ *. oe SIGE OI Ooi / 
/ * NO / 
/ / 
/ / 
/ / 
/ / 
/ / 
/ Y / 
/ HRKKKCOHESEEER ERE / 
/ sPEW1CO x / 
FoR a a a a a * / 
| Sah aataateataealan > x / 
/ #PUT THE RECORD : J 
J TELL E rir errr ere. y 
/ 
VR 


PEPL50 


v 
REHKAKOGHHEHHKKAKHEK 
* * 
* EXIT * 
* * 


AGO RIOR a aOR 
TO: PESOOO 
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PESO00 
me a KA | ok ae aK ah a ok ok ak a 
* * 
* ENTRY x 
* * 
3 i ae Re he ake ake a ae a oe ok a ke ok 


Ae oe ate He BD ate ok ae ae oh ae ok 3 a 
* * * 
3 ke ----- >* EXIT 2 
*, o* A x Ss 
Ke XX fe Me he oe oh he he a fe a fe ae ae ae a 


* NO Hee TO: PELOOO 


#< 


* PRINT ESL * 
. HEADERS : 
SO ok otoiok dot doko 


faCED LAS roR RIO 
* * 
*SET POINTER TO * 
: START OF ESL 


HHH 


* 
Me ae ae Hee Me te ae a ae 3 ak oe a ae Ke oe 


PESOLO Vv 
tee ED ai ai ak ai ok a a ae 
* 


x 
*MOVE SYMBOL TO * 
* PRINT IMAGE * 
: BUFFER x 


* 
eM a ea ie ae ae he ea a a OK he ok 


ee NEF EE a A ED SD EE SEP EE ND ES ED SY ED A SD ED OO 


* 
*. ek ak 
—E “*, NO * * 
D wk=--->* AG *® 
* * * 


*. .* 2 


Chart FD. ESL Table Print Routine (PESO0O) 


* * 
x AG x 
* * 
Hak aoe 
Vv 
PESO20 *, 
A4 *e 
o* x, 
* *. NO 
* ENTRY o€-==- 
*. o* 
fet tok x, .* 
* * *. 4* 
* BZ x * YES 
* x 
ak sok 
Vv Vv 
FEI IORB 3 tok tokio a ak ae Ro CICK BG sok te keteeteak ak 
%* * * 
* MOVE '‘MODULE® * * MOVE "ENTRY' 


* INTO PRINT * * INTO PRINT 
: IMAGE BUFFER : ed IMAGE BUFFER 


Se 2 a 3 fe af a ae i 2 2 a 2K fe ok he Re ee a ae ae a ae ae 3k of 2 ae 2K ake 


HHH HH 


Me ke 


* * 
t->* O03 * 
* * 
Vv $e tO 
% FF/01/B3 
C3 &, a OR C4 tot oii ska 
.* *PEGO * 
-* END OF °*. YES knor eae Sosa ae * 
*, PAGE ene ee * * 
. ; *GO TO NEW PAGE * 
*. .* * * 
*. 4* amok kak a ak ak ak ak kc ak ak ak a 
* NO 
He Ke ae 
* * 
* D3 *-> 
* YL a ae ee ee ee a ee ee ee ee we » 
eK He 
PES040 V FI/O1/A4G 
ie a aK D3 ak ak ok eae ak kaka 
*PER O00 2 
ton eee ee oucesae * 
* 


* 
pag THE IMAGES 
a ee a ae ae eae aR a a oie ac ee ak 


Vv 
o*, 
E3 bale) 
o* 
e* END OF *. YES 
*, TABLE PE, pete) 
*«. ce 
*e 6 Vv 
* NO sek ak ok 
{ * * 
woo +--+ +--+ * B2 * 
* * 
HH He ak 
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-“--->* INTO PRINT 


PESO30 
ea oe AS oe ok ok ok a aK ok 
* 


* MOVE "EXTRN®E 


% HH Ht. 


: IMAGE BUFFER 
SO to Rk IO Io Roi Kak 


se 
* * 
->* D3 * 
* * 


eh 


w 
PELOOO PEGOOO 


otk A 2 okt tok 408k B3 too ito te 
* * * * 
* ENTRY * * ENTRY * 
* * * * 
ate He ee ee ste ae a oe ah ae ae ak aK He Me He He he he eI AK HK eK aK Ke 
PEGO40 v 
ek OK B 2 aot sototok KC 3 a 
* * * * 
* INITIALIZE  #* *INCREMENT PAGE # 
* HEADER FOR * #COUNT AND RESET # 
* SOURCE/OBJECT * * LINE COUNT # 
* 
PES eS CLES STS ET SS SE RKKK KK KKKKKEKK EK 
V FI/OL/A5 
Me oe ae ae a CD ke ak i a a ak ke ke ok a he he HD We aK KK 
* GET PAGE AND * *PER300 * 
* PRINTER SIZE * fnsceacossnaces * 
* FROM SYSTEM * * 
* COMMUNICATION * *EJECT THE PAGE * 
* REGION * * * 
ee Me ae he he ae ae a a a ae a a ae a ak Wee ke CK tek Kk KK KH 
PELO1O V V_FI/OL/A3 
eR A mL) D oe oe a KK REKKKES KKKEKKK KH K 
* * *PER 100 * 
* SET PRINTER * Peibsgh aap rea * 
*CONTROL SWITCH * * PRINT FIRST * 
* USING SIZE * LINE OF HEADER * 
sok tq RK tok ak kote kok Me te ROK ee KK a I a 
PELO30 v V FI/OL/A3 
Me HRM E Dk mK HK kK a KK HK FS Ke KK KK KH HK 
* * *PER 100 * 
*% SET DEFAULT_ * alee eee re * 
*#SEQUENCE START * * PRINT SECOND * 
* * LINE OF HEADER # 
eK oe OK ea HK KK kK Wek He KK KK 
v 
Mem ae ea ED ie ake he a eo ok ee ak ae Vv 
* * RKKKGSKRKKRKKKE RE 
* SET DEFAULT * * 
* SEQUENCE  * * RETURN * 
*  (CENGTH-1 * * * 
* * We ie ee eo aK a a a 
ek Kk KK KK KKK 
Chart FF. Page Header Control Routine (PEGOOO) 
v 
2ok HOR G 29 RO i tok 
* * 
* SET INITIAL * 
* PRINTER LINE # 
* COUNT * 
He he eo ok oe oe a KK HK eK 
v 
He Hee ee Dae ae He a ee Ne he 
* 
* SET DEFAULT * 
*PRINT SWITCHES * 
* * 
WME He He Ne he a ate ae a ak oe Ok oe 
V 
Me He Me fe ie a a ae oe a ok a ok 
* * 
* INITIALIZE * 
* MISCELLANEOUS * 
* ASMCOM FIELDS * 
Mee ae eae he aie i Oe ae a ie ae ak ak oe 
: v 
We Me MRK DH i ote a ee Oe ok 
*FETCH + 
oot Soee eee *x 
*EXIT: PHASE 30 * 
RRR KKK KK KKK KKK 


Chart FE. Termination Routine (PELOOO) 
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PEWOOO 
He HC A tk i ae 


* * 

xx ENTRY * 

* * 
HK KKK A KAR HK KH HK KK 


V 
ae ae ae He BD he a a 3h ok oe he ak 
* * 


* * 
*SET UP LINKAGE * 
* * 


* * 
BI IOI IO IO I IO ICR 
Vv 
o*., 
C2. 
o* e 
-* READ A *. YES 
*. BLOCK IN eee 
*. PROCESS .* 
®. o* 
*, 
* NO 
Lee mow woo 
tok $tok 2 24 ok to RO a 


* * 
*GET RECORD FROM* 
: CURRENT BLOCK bd 


* * 
me ae ae OK ek ek a 


o*. 
E2 *, 
* * 


NO .® BLOCK “*. 
wna, EMPTY oe 


K« 
sani 2 
*CAMOO1L 


Ole Ke ee 


* 
: READ A BLOCK : 
ee Me a he He eK HH 


~---------> 


V 
IK G 208 ak 
* * 
* RETURN * 
* * 
eI to SO 


Chart FG. Disk Data Management Interfaces (PEWO00) 


HEKEEC 3 EK 


*CAMOOL 
Lace cnc 


<---> *WAIT ON CURRENT * 
* READ * 


* * 
ee Me ae ae he Me a a hee ek ae 


V 
o*. 
03 *. 
o* *, 


NO .* ° 
Seco *,. PERMANENT .* 
e ERROR . 


*. o* 
* YES 


Vv 
RRKKE FERKKERKKE 
* 


PEW100 
HHA AG HHA EERE 
* 


* 

* ENTRY * 
* * 
KKK KKK KKEKHEK KEKE 


V 
CHEEKBG RHEEEE EEE 
* * 


* x 
*SET UP LINKAGE * 
* * 


* * 
He Me Me se he he ae he ae a ae ae a a a 


o*, 
C4 *. 


o* *. 
e* WRITE A *. YES 


*. BLOCK IN o* eS ee ee ne 


#o PROCESS o* 


"ae * 
* NO 


V 
HEKEEYGERERAKEKEKEE 
* 


* 
*PUT A RECORD IN*® 
: CURRENT BLOCK : 


* * 
RHKKKHKKAREKKKEKE | 


V KA/OL/SAL 
HERAE GH KERRE RHEE 
* 


* 
SCAMOOL 


www ene een www wa XK 


* * 
: WRITE A BLOCK od 
RARER EREREEEEEE 


----------> 


ERKKHG REESE EE 
* 
* RETURN * 
* * 
HERRERA EERE 
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Wk KC 5K 


* 
* 
>* 
* 


: 
CAMOO1 * 
* 


WAIT ON CURRENT#* 
WRITE * 


* * 
RRKRKAEKEKKKKRKKE KE 


NO .* *. 
-----*, PERMANENT .* 
ERROR .* 


DS° “*, 
o* *,. 


*. o® 
* YES 


V 
REAKES RHKKKEK KKH 


*EOJ 
* 


REEKG SERENE EEE 
SYSLOG 
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PEX000 
HEKKALEREREEERE 
* * 
* ENTRY * 
* * 
RERREKERKEREEEE 


V 
EEEKEB] REKKEEEERE 
* 


SAVE RETURN 
REGISTER 


HHH 
eH HH 


KKK KEKE KEKE 


V 
KEREKC | KRKKKKEEKEK 
x 


* SET REG TO 
* PUNCH INTER- 
FACE BLOCK 


RRKKKKKRAEKKEKEKEKK 


ee 
HARE 


Dl *. CEH D 2K EE 
‘ o* *. 5 *SYSPCH 


* * 
eo MOOEL . e*--~~---—- >* * PUNCH 
*. -* : : RECORD 


*. o€ KKKRAKKKEREREKE 


HH HH 


V 
KERKKE ] KEKKKKERES 
*DM 


* #PUNCH DATA * * 
* *MANAGEMENT * * 
* * * * 


ERRKKEKKEEAKKEKKEEE 


ee 
~* *. YES *EOJ 
>* 


V 
EREKEG ] EEKKEKEEEKS 
x 


RESTORE 


eH Ht 
HHH 


REKKEKAEARKEKEREKSE 


V 
RHEE ] KKKKEKEKK 


x 
* RETURN * 
* * 
ERK ERREEHEE 


Chart FH. Punch Data Management Interface (PEX000) 
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PEROOO 
KKK A) RRERREEEE 


* * 
* ENTRY * 
* * 
EEKEAEKEAERER KE 


V 
$k BR Re 
* * 


*SET FOR SPACE 1* 
: AFTER PRINT : 


* *x 
RRR HHH EH RK KKK 


HR RKEG 1] REECE 


So VOLST/PRT * 


o* 
=-+----~------- * 12 OR 15 .* 
* * PRINT ¥ ¥< 
* * RECORD * * 
* * * * 


KREEKKKEKKKKEKEREK 


Chart Fl. Print Data Management Interface (PE ROOO) 
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PER100 
WERK AZ EKEEKEEKE 
* * 
* ENTRY * 
* * 
PEELE SLE rs tr ES Ft 


V 
KEKE OKRKEKEKEKEKE 
* * 


*SET FOR SPACE 2% 
: AFTER PRINT 4 


* * 
eA he Re Re a ee eK OK 


PER1O5 V 
KERR 2 EE 
* * 


*GET PRINT IMAGE* 
* ADDRESS * 


* * 
We HK KK KK KK 


V 
KRKKKODKKKKRKEKKEK 
* * 
* SAVE RETURN * 
* “REGISTER * 
* * 
* * 
* * 


WH HH HK eK HK HK 


Vv 
SEOREE 24H HEHE EEE 
. 


SET REG TO * 
*INTERFACE BLOCK* 


*x 
: * 
REMAKE EKKKEK 
Vv 
KKK DEKEKEKKEKE 
#SET SPACE AFTER* 
*AND IMAGE ADOR.* 
* IN INTERFACE 
* BLOCK * 
We A He eK ee i ak 
V 
o*, 
G2 *. 


*. 
x. MODEL o* 
* * 


V 
RHEE HD ERK KE 
ay * 


+ * PRINTER * # 
* * DATA MGMT * * 
* * * * 
RRKKKEKKEKEEK KKK 


Vv 
REEKK ORK 
* 


* 
* RESET SKIP * 
* BEFORE IN * 
SINTERFACE BLOCK® 


EKER KEKE 


KEKE 
* * 


->* £5 * 
* * 
KEKE 


PER200 
KERR AG EKEKEKEKK 


* * 

* ENTRY * 
* *x 
KRRKK KKK KKK KKK KK 


KEK BG 0K ERK 
* * 
* * 
* LESTE ER * 
* * 
* * 

% 


We RK RM eK KK 


v 
We Re he ae RC ye he ae ae ee eo 
* * 


* SET REG TO * 
S INTERFACE BLOCK* 


* * 
MEEK RARE KKK KAS 


Vv 
KEKEEDG HERE EERE EK 
& * 


* * 
*TURN OFF PRINT * 
* * 


* * 
REM EEKKRRK ERE K KEK 


Vv 
Fe KEG a 
x * 


*SET FOR SINGLE * 
: SPACE BEFORE : 


* * 
FE He Me He I KK KE 
: 
RHKAKEIRKKEKEKEKEK F4° xe. 
*SYSLST/PRT * “* *. 
Hoenn eee wee enn * l2 OR 15 o* *. 
* # PRINT * *<-------- *. MODEL * 
* & RECORD * * *. -* 
* * * * *. * 
RR RK HK KK x, ~* 
j 10 
V 
Saat 
eon 
wee ee oe eo owe H 


* * PRINTER * ® 
* * DATA MGMT * * 
* * * * 
PEE ELE SET Et Ee ee 


Vv 
KEKKKHS KEKEKEEKEK 
* * 


* * 
* TURN ON PRINT * 
* * 


* * 
REHM ME KKK AKKKKK 
Vv 
RK ARH IG ERK KKK KKK 
* * 
* ZERO SPACE * 
* BEFORE * 
* * 
* * 
PTET SSS ST ES SESE SF 

wR kK 

* * 
->* E5 * 
* * 
eeKK 
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PER 300 
HRAKASERERHKERE 
* * 
* ENTRY * 
* * 
FORK ea 


RERKEK AH KKK ARK KKK 
* 


HE Me he he ee 


Vv 
la aaa.” 
SET REG. TO * 
INTERFACE BLOC Ks 


P 
yueeceeeewecesens 


Vv 
90 CE D5 8 OR tO 
* * 
*SET SKIP BEFORE* 
* IN INTERFACE * 
: BLOCK , 
Trt tet ete ree eT eT 


ERK 


Ke 
*. YES 
ABLE. #-==— 


ze XD 
= 
. 


PER405 V 
He HF 5 Re 


RESTORE 


HHH 
HHH HH 


FORO ICR TOK OK 


Vv 
HAIG 5 KH RH 
* * 
* RETURN * 
* * 
ROR II IOI HO i tt 


3e9 


MODULE $ASPSO—SOURCE/OBJECT OUTPUT (PHASE 
30) 


Main Storage Map: Figure 10. 


Entry Point: $ASPS1 — entered from Phase 29 via FETCH. 
(For Model 10 Disk System, see /BM System/3 Disk Systems 
System Control Program Logic Manual, SY21-0502; for 
Model 12, see /BM System/3 Model 12 System Control Pro- 
gram Logic Manual, SY21-0046; for Model 15, see /BM 
System/3 Model 15 Supervisor and lOS Logic Manual, 

SY 21-0033.) 


Charts: GA-GK. 


Functions: 
@ Initializes Phase 30 for processing (PSIO00O—Chart GA). 


@® Controls Phase 30 processing of intermediate text file 
until end of data or end of file is reached (PSCOOO—Chart 
GB). 


@ Searches for control records; puts error number in listing 
if any errors are found (PSKOOO—no chart). 


@ Performs tasks associated with Phase 30 termination 
(PSTOOO—Chart GC). 


@ Puts object code in $WORK (PSHOOO—Chart GD). 


®@ Converts binary data to hexadecimal representation 
(PSX000—no chart). 


@ Evaluates the expressions in the operand field of the 
current source record (PSEQOO—no chart; functionally 
the same as SBVOO0 routine in Phase 20). 


@ Initializes the Print Edit Routine at the start of the Out- 
put Phase and for every ISEOQO start request (PSYOOO— 
Chart GF). 


@ Performs all editing of the print image required by the 
various sized line printers — 132 column printer, 120 
column printer, and 96 column printer (PSZO000—Chart 
GC). 
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® Controls page size of printed output (PSPOOO—no chart). 


@ Counts pages (increment page count parameter) and 
prints current header (PSGOOO—no chart). 


@ Performs binary multiplication operations (PSMO00—no 
chart; functionally the same as SBXO0O0 routine in Phase 
20). 


@ Provides linkage to overlay routines, $ASOV1 and 
$ASOV2 (PSLNK1, PSLNK2—Chart GE) — Model 10 
Disk System only. 


@ Provides interface for printer data management (PSROOO 
—no chart; functionally the same as PEROOO routine in 
Phase 29). 


@ Provides interface for disk data management (PSWOO0O— 
Chart GK). 


Functions: Module $ASOV1 (Part of Module $ASPSO, for 
Model 15) 


@ Performs Phase 30 processing for machine instructions, 
translating them into object code (PSSO0O0—Chart GH). 


@ Processes Group 1 assembler instructions, DROP, ENTRY, 
EQU, ORG, START, USING, (PSBOOO—Chart Gl). 

Functions: Module $ASOV2 (Part of Module $ASPSO, for 

Model 15) 

@ Processes Group 2 assembler instructions, DC, DS, 


EJECT, END, EXTRN, ISEQ, PRINT, SPACE, TITLE, 
(PSA000—Chart GJ). 
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Input: 

@ $SOURCE. 

@ Intermediate text in $WORK2. 
1. Fixed Length, 10-byte records. 
2. Four types of records. 


a. Control Record — one created for every source 
statement. 


b. Name Record — one for every valid name entry. 


3c. Term Record — one for each term in a valid 
operand, and one or more, as required, to speci- 
fy the operand field of the TITLE and DC 
assembler instructions. 

d. Error Record — created when there are one or 
more errors in a statement. 


Output: 


@ Printer listing of the source statements and any object 
code generated by them if LIST is specified. 


@ Object deck is placed in $WORK. 


Exits: 


@ Normal — control is passed to Phase 35 (module $ASPDO). 


@ Error — control is passed to scheduler via Halt/Syslog or 
EOJ transients. (For Model 10 Disk System, see /BM 
System/3 Disk Systems System Control Program Logic 
Manual, SY21-0502; for Model 12, see /BM System/3 
Model 12 System Control Program Logic Manual, 
SY21-0046; for Model 15, see /BM System/3 Model 15 
Scheduler Logic Manual, SY21-0035.) 


Working Storage: All required Phase 30 working storage 
that is not in the communication modules (SASROT, 
$ASPRC) resides in this block. 


Constant Block: The Constant Block is loaded tn the area 
immediately following the initialization routine (PSI000); 
it is moved into Assembler Common when the phase is 
initialized. 
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RESIDENT SUPERVISOR 


$SASROT 


Communication Vector 
Assembler Common 
Disk Data Management 


$ASPRC (see Section 5 for description) 


Printer Data Management *** 


PHASE 30 CODE (Module $ASPSO) 


PSI000 Routine/Working Storage * 
Constant Block 
PSCOOO 

PSTOOO 

PSKOOO 

PSHOOO 

PSX000 

PSEO0O 

PSY00O0 

PSZ000 

PSPOOO 

PSG000 

PSMO000 

PSLNK1, PSLNK2 *** 
PSROOO 

PSWOO00 


Module $ASOV1 ** 


PSQ000 
PSSO000 
PSBOOO (Group 1) 


Module $ASOV2 ** 


PSA000 (Group 2) 
DISK BUFFERS 


* 


PS1000 and its associated contant block occupy 
the same main storage as Phase 30 Working Storage. 


** SASOV1, $ASOV2 - The subroutines to perform 
machine and assembler instruction processing reside 
in these two modules. These modules are loaded into 
main storage at the end of $ASPSO. The amount of 
main storage available to Phase 30 determines whether 
they will both be resident or will both be loaded on 
call (load). The initialization routine (PSIOOO) deter- 
mines the amount of main storage available and assigns 
load addresses and switches to control the loading. If 
there is sufficient main storage, $ASOV1 and $ASOV2 
are loaded only once. On the Model 12 and Model 15, 
these routines are part of $ASPSO. 


*** Model 10 only. 


Figure 10. Phase 30 Main Storage Map 
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$ASPS1 
aie ae ie a A] ok ke a oe ok ok ak oe 
* * 
* ENTRY * 
* * 
We hee he ae a ah af a he ae ak ae ak ak 


PSI000 V 
ECB Lae ook iatok 
* * 


ESTAB = 


* LI * 
SCOMMUNICAT 


H 
ONS * 
* 


* * 
Re He he Meo ae ate ae oe ae ke a oe ica 


FeO | dotok tof took ak 
* * 
*PUT DC BLOCK IN* 
* ASMCOM . 


* 
MH He Me He he ae he he ae he ok a ae He 


a 


MODEL 10 DISK SYSTEM ONLY 
SA OK ak ek 
ISH 
AND 
LOA 
C 


MRA ae He ake eae ae ee ae a ak a ake 3c 


----}—-------4 


V GF/OI/AL 
geo RE tokio i tok k 


*PSYOO0O * 


ee eee eK 


* INITIALIZE * 
: PRINT CONTROL : 


eR IK Ae ae ate he ae ak 2 ae a oko oe 


eeaSerieaceeuese 
* * 
* COMPLETE * 
*INITIALIZATION * 
* * 
* * 
Me I he Rea oe oe ae ea a ae akc aie 

V.GK/01/ 84 
MA RG kK Nek ek ok ak 
+P SW100 : 


*GET FIRST TEXT * 
* RECORD * 


A Be ae he ak a ae ae ae a ae 2 ok ae ake a 


V_ GD/01/G3 
Me RRO oe ak ate oak ak aoa ak ak 


*PSH600 * ‘ 


Sasson SoSe 


* INITIALIZE * 
: OBJECT Sane : 
‘ SRR A ORR a dk 


V 
eto JD a aioiaiek ak dekok 
* * 
* EXIT * 
* * 
FRO to tok tak ke kok 
TO: PSCO0O 


Chart GA. Initialization Routine (PSI000) 
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PSCO0O 
PPTL IMELLELO LS 2: 
* * 
* ENTRY x 
* * 
PECTS ETCE ECOL SS 
$C 
* * 
*# Bl *-> 
* * 
ee 
$4 LE 
* 


* SAVE CONTROL 
* RECORC 


HH Ht 


* 
PES ESL LE LSS EL EE ES 


eR KRC LF 
zPSw200 


V 
PTET TISELE COOL ELL, 
* * 


* ADJUST SOURCE * 
: STMT NUMBER : 


* * 
PERE LEE SESS TES ESS 


e 
o t-=~ 4 


o* 
*. SEQUENCE 
wie ERROR .* 


*eHHKB ZH 
ePSS000 


*PROCESS MACHINE# 
* INSTR * 
BO RoR RO OR tok 
Hk 

* * 

e->* F4 * 

* * 

HK 


MK He he DDK ee KK 

* 

* PUT IN PLUS 
SIGN 


3 4 3b tt 


KERERH2 EEE 
ar 5W100 


* * 
TTT ETE TTI CTE LoL TS 


ee KE 

* * 

e->* G4 * 
* * 
KKK 

K/01/84 
PTETTAPE TTT Litt tT 
#PSW100 * 

Se REAC NAME * 

* RECCRCE * 

PTET TTT TCT P ELL Lye T. 


* * 
* * 
* * 
* * 
* * 
* * 
* * 


RAKE HARD EAE EE 


Chart GB. Main Control Routine (PSCOO0) 
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te oko 
* x * * 
* AZ * * AG * 
* * * * 
1 HK 
V Vv 
o*, 0%. 
A3 *, A4 *. 
0% He .* *. 
YES -* MACHINE *. o* MULTIPLY *. YES 
e INSTR * ¥e OEFINED o ¥---- 
° Py x. SYMBOL. 
*. o* *e 0% 
%e 4% *. 9 ¥ 
* NO * NO 
ee 
* * 
* B4 *-> 
* * | ¢----------~ 
Hook HK 
V GI/O1L/AL PSCO1O GK/01/B4 
eH BB KK ek OK BG ROR tok kok tok 
wPS8000 : *PSwW100 : 
*PROCESS eee 1% : Sate! 
IN : READ A RECORC : 
ere rrr rs PoC CESS SLOSS LL £2 2 | 
ok tO Pers] 
* * * * 
+->*% F4 * * C4 *--4 
* * * * 
He ea Pere 3 
PSCO15 V NO CHART 
PSPS. WELLES LCL SS! 
*PSEO00 z 
* EVALUATE Le 
: EXPRESSIONS 
PCS SIS SSL S LL SS SF 
V 
ao. 
12 04 x, 
Pes 3 GR o* *. 
* * 15 .* 
* AZ *<K----%, MODEL o* 
* * *, ef 
eR x, o* 
Ke 
* 10 
PSCC20 Vo GE/SOIL/SAL 
Rett E 4 tok tok oR dk 
*¥PSLNKIL ; 
*PRCCESS MACHINE* 
* AND GROUP 1 * 
* INSTR. % 
PEP CCL SS SLL LL Lee S| 
% 
* * 
* F4 *-> 
* * 
HK 
PSCO25 V NG CKART 
KREG RRA KSE 
zr 2000 : 


#FLAG ANY ERRORSS 
ROR IO RR RR ae 


ELT Vv 


PSC610 V 
KR SG 


#PSZ000 
#PRINT THE LINE # 
eH A ee HK 
ee KS 
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SUSSAASSANESE SEES 


: SET eRe BIT. : 


* 
* * 
PEE SS EES EE SEE SE ES 


to KF Oe 
SPSLNK2 


o-oo *PROCESS pRUer 2% 
NSTR * 


PEE EEE LE ES Et ES SS 


EHKAREEOSH 
pence’ 


Mme ee ee ee oe ee ee eee 


ee ROTTRSTR a 


eer eTTerer TT Tey" 
* # 4K 
4 * * * 
* *->* FH * 
* % 
Xa 
CHART 
AESKESHEESTETESS 
pooner 


---->% CONVERT LOC * 
*COUNTER TO HEX ; 


* 
PESE SLES ES FL 5 2 5 5 FS 


ROOK 5a a oR otk 
: EXIT : 
PrCEELCEOOLOEe S: 

TO: PSTOOO 


PSTOOO 
fe IO A 24 I a ik 


REKKA 1] HEKEKK ERE * * 
* * *SET MISSING END* 
: ENTRY : aaa STMT ERROR : 

KKKEKKKKKKEKEK KE * ; * 

KK KKK KKK KE KK KK 

ee KK 

* * 

->* Cl * 

* * 

‘oy * 
o*, GO/01/G4 

Bl *, KKEKKEKR AQEKKKKKKEES 
* *. *PSHT700 * 

e END *, YES Kee em enen Semen = = * 

*. STATEMENT .#---* +-->* PUT OUT ANY * 
# BESSING « : OBJECT CODE : 
*, .* RKKKKKKKKEKKEKKKEK 

* NO 

KkKK 

* 
* Cl ¥-> 
* 
eee VY 
PSTOOS o*, V GK/01/A2 
Cl *, HEREC 2H REREE EK EE 
o* * *PSWOLO * 
e* OBJECT “*. YES #--------------- 
*. OUTPUT oe ¥a---— « * PUT OUT END * 
* SPECIFIED .* : RECORD id 
*, .* KKKAKKKHKKKEKAKEKEEKE 
* NO 
QR wre wm wn nm wn ww wn oe oe we oe ne ° 
Vv 
PSTO1O o*, 
D1 *, #EERKD2EEREREEEEE 
o* * * * 

e* MODULE *. NO * SET MISSING * 

*, NAME o Re———---->* MODULE NAME * 

*. PRESENT .* * ERROR * 
*. .* * * 
*. REEKKKKKEKHKKKKEK 
* YES 

v oh eee ‘ 
o*, PSTO20 V GK/01/B1 
el *. KEKE 2eRREE EE RHEE 
o* *, *PSw000 * 

o* MISSING *. YES #-—------------- * 

*. END ERROR ,*#-----< * PUT OUT ERROR * 

e SE ° * RECORD * 
jo el FEREKERERERE EEE 
* NO 
Rw www ww ww on ww ° 
V 

KEKE] KEKE ERE 
*FETCH : 

*EXIT: PHASE 35 * 
REKKEKAKEKREKEERKE 


Chart GC. Termination Routine (PSTOOO) 
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PSH500 


eK AG Fook tO tek ok 
* * 
* ENTRY * 
* * 
ee a cake ae a ae ak ak a ok ak 
oem > 
V 
PSHOOO o*. 
B4 *, 
Me eae Bo a ae ate fe ok fe ate ak * *, 
* * . e* ROOM IN ¥*. NO 
* ENTRY * *, RECORD ek 
* * *. * 
Bok kkk teak aici aka ake ake ok x, * | 
*. o* Vv 
* YES tO 
* * 
* D5 * 
* * 
ek RK 
V 
o*, V 
C1 x, We Ha CG te ocak a ie ete ok ok 
* x, * * 
«* NODECK *x,. YES * PUT _CQDE IN * 
*, & NOOBS X= * RECORD * 
é ae * * 
*. o* * * 
x, x V Sek oi tk i tok tok a ak ‘ 
* NO we ake ake : 
ok Ok * * 
* * *x KL * 
* Ol *-> * * 
* eK KK 
wee te V] Vv 
PSHOOL o*, GD/O1L/A4 ; o*, PSH535 GK/01/A2 
D1 *x, Re af a ae) 2 ak ae a ae a ak ae ae a D4 *, eR EH DS se ak ae te ate ak te ak ak ak 
o* *, *PSH500 * o* *. *PSWOLO * 
* *. NO Ke me se we een mk o* ROOM *. NO +--+ * 
*. RELOCATABLE .*-~------- >* PUT OUT Koma *, LEFT IN » kee >*PUT OUT OBJECT * 
ee CODE me : ABSOLUTE CODE : *e RECORD Pod A - RECORD * 
x. o® Hee ae ake i he a ae ak afc ai ak a ak fe 2 ae V ae a | Hee ioe ete ake te he ae ac ak fe akc ae ae 
* YES kk * YES so 
* * * * 
* J1 * * 05 * 
* * * 
stk aK 
Vv 
PSHO06 o*, GD/01/A4 V GO/01/G3 
El *x, Meo ae a aE De i i ae ak a a he ke ae Mee i Heo EB te i a a ai ae aha ak 
o* x, *PSH500 * *P SH600 * 
e yes Ke ee ee we we Ei a a ae se ae ae * 
*, AOCON oe Kem nee—- >* PUT QUT ADCON *---~ kre mee eee ee nenn= * INITIALIZE * 
e “ * : OBJECT RECORD : 
*. .* Jekototak kaka ke aia ak eae tok ok V Je I ok ke toto ie sok sake tok 
*x NO 2 cok 
* * 
* J] * 
* * 
eke ak 
Vv 
PSHO050 V GD/01/A4 PSH540 o*. 
Hea A Rea Ek ak aK a a a ea ae ok F4 *, 
*PSH500 * o® x, ek teak F 5 kate kak i kok 
Bmw ee me ee ee on YES .* MORE *. NO * 
*PUT OUT OP CODE* t—-—-*&, DATA TO PUT .*#-<------ >* RETURN * 
* AND Q BYTE * *. OUT ° * * 
* *x *e o% Be RC ot eo tte ace kek ok 
SG aR ii i aki aka) 3k Ke. eo 
* 
GD/01/A4 PSH600 PSH700 
Me He AKG oe te ak fe ae ak afk ok ai ae 
*PSH500 * He He GF oi a ae sea ak cok We 0 GG to i i otek ak teak 
Kore eee ee ee * * * * * 
*PUT OUT OPER AND* * ENTRY * * ENTRY * 
* 1 * * * * * 
* * ee he Ra ae a ea ai a a Me He He oe a a oe a a a a a aK fe 
Be me Re ae a fe a ae a a a ak fe ak aK ae 
V 
V GD/01/A4 V o*. 
oot a i a] i ake koa akc ak aa oe He A a CY Bo a ak ak ai ak a he ee H4 *, 
*PSH500 * * * o* * 
Ken ee en enn nt * INITIALIZE * e* NODECK *. YES 
*PUT OUT OPERAND* * OBJECT RECORD * *, & NOOBJ ek--—a 
* 2 * * * *. o* 
* * * * ‘ : | 
SO IO bok ate tok akc afte ak ak Se RRR RC ao oe fe a a ae a ac akc ak Ke 9% V] 
* NO Ok tok 
tek * * 
* * * KG * 
x J] *=> * * 
% * aK Fe 
ae i Vv Vv 
PSH490 o*, o*, GK/O1L/A2 
J Ke Vv J4 *, eR He ae 5 2 ae a ak ae ak ae aie a ae 
* ‘ Kea He ae ai oe ie ate ak ke ak a ae * x. *P SWOLO * 
o® DuP *. NO * * o* ANY *. YES Rowan ee en ee * - 
*. FACTOR ZERO .*----— * RETURN * *, CODE IN o Ree mem >*PUT OUT OBJECT * 
*e o* * * *. RECORD .* * RECORD * 
x, o* Ae a ak a ai ae a ak akc ak ak ak i ik ik x, o%® * 
o* ee 9% Bek etek ke tote ke ak ee kek 
* YES a NO 
we ae aK a * x ek 
* * Dl * * * 
* Kl *=> * * * K4 k—> 
% * we ae He * ne a 
ae ak fe Me ater 
V G0/01/G3 
Vv V Me He ee IC Se a a a fe ai fe ak a ae 
AR IC) ea kc a a ak ake ok eR IC a ae a ae ae eae oe *xP SH600 * 
x *x * * Keno enn * 
* RETURN * * RETURN * tenmnm—-—-* INITIALIZE * 
* * * * * OBJECT RECORD * 
ee ofc ake ake ae a ae ae ake ae ae ak ae He ae ake i a ai a ae ae ae ae ae ae ae * 


ok 
He Me He He He oe He He ke He He he ie he Ik IK IK 
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PSLNK 1 
Me He ee A) he a oe deo ok ok 
* * 
* ENTRY x 
* *x 
Be ae a ate oe a oe a ake a oe ak 


VNC CHART 
RR RO a 


*% 
~~ 
” 
oO 
(2) 
oo 
om 

* 


Vv 
ee a ak) a ae ae ak ae eae 
* * 
* RETURN * 
* * 
NO Ro fake tok ick te tote 


Chart GE. Linkage to Overlay Routines $ASOV1 and $ASOV2 (PSLNK1 and PSLNK2) — Model 10 only 


Re he ae BD ee ae ake ae ee ae OK ok 
* 


HHH 


* * 
He ae he Re ae a ao eae ok ak ok ak 


PSLNK2 
ae ok eo A KK KH 
* * 
* ENTRY * 
* * 
I ae He Me ae she ah he he ae 3 he a 3 


*PROCESS GROUP 2* 
: INSTR. 2 
FRR RRO ROR I tk 


V 
SRR DG 4 ROR OR 
* * 
* RETURN * 
* * 
9K ROR RR RIC OR OR 
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eH He he ie BS he ae oe 2 ae he ah a 
* 


ok 
ne LOAD $ASOV2 


% HHH 


* 
We He He HM Me He eK ee eH HK HK 
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PSYO000 
em A) tok ok ok 
* * 
* ENTRY * 
* * 
fat oR Rok tok dr i 


V 
feo CL ioiokot tok totok ok 
* * 


* * 
SCLEAR WORK AREA® 


* * 
He He He a ae he ae ae ie ea ae eo a 


V 
oe ED) ] kak ok a eK 


* * 
*INITIALIZE MCVE* 
ePREnsS & CENG iis? 


* * 
We He He ae Re ae ee a a eK ak 


*, AERO E Qi to tok a tet 

*. * * 
COL ¥*. NO *SET PARAMETERS * 
TER, ¥e = =~ >* FOR 96 COL * 
* * PRINTER 2 


*, .* eo te tee ok ke ot tok 


PSYOLO V 
Bek ROR RF | tok tok tokio 


* * 
*SET PARAMETERS * 
* FOR 120 COL * 
* PRINTER * 


We He Me he ee oe ae i ee oe ae a ae ae ae 


KHKKG] ERKKKE KKK 
* * 
* RETURN * 
* * 

3 ee a a OK KK 


Chart GF. Print Image Edit Initialization Routine (PSYOOO) 


74 


Licensed Material-Property of IBM 


Page of LY21-0504-3 
Issued 17 March 1976 
By TNL: LN21-5382 


P$Z000 
rrr UMETIELOL tS 
* * 
* ENTRY * 
* * 
SOR IOIOIOIOII ICR tok 
Vv 
aXe o*., 
Bl ¥. B2 +, 
.* *. .* 
e YES * ANY *. YES 
*. NCLIST ekeeer wen >*. SQURCE ot---5 
e 7 e ERRORS .* 
*. .% x. * 
%e ot *. o% Vv 
* NO * NO anes 
* Fl # 
* 
ttt! 
V 
o%e. V 
Cl *, KC 2 
.* *. * * 
* PRINT *. NO * CLEAR PRINT * 
*. ON o Reem ene >* AREA Kms 
° o* A * 
*, .* * * 
ee. 8k PETE TELE Leer es St ey, 
* YES Petts * EK 
* * * * 
* C2 # * KL + 
, * * * * 
Tit. Hk OK 
o¥e MOCEL 12 ANC 15 ONLY 
0% PRINT *. YES | 
} oo, GEN otu==5 
; *. .* 
| #. * | 
*. ot Vv 
| * NO Oke | 
x 
| tri | 
* * 
| HHH | 
V 
| #. | 
El *. 
Pe *e | 
| MACRO #. YES 
*. GENERATED eK | 
| . STMT. 
*. .% | 
| es V 
* NG 40K Ok | 
| Ltt * * 
* * * C2 # | 
| * Fl #-> * 
TTT: 
Fl *. BORK 2 toe to 
- *, * * 
0% 132 *. NO * ADJUST FOR 2 * 
->*. COLUMN a Famer ewe >*LINES CF PRINT * 
*. PRINTER o* * * 
*, .* * * 
ee 4% PETIT ILILerirrr tt 
tok tok * YES 
* * 
* Fl * 
* 
4k Re €----------+--- +--+ == « 
VNO CHART 
WRI G AO ROR HO & 
*PSPG00 : 
* * 
: PRINT A LINE id 
PET TEST ILetiress t 
Vv 
o*. 
. Hl *. 
.* ° 
“* 132 *. YES 
~ COLUMN e--=5 
*. PRINTER .« 
*, .* 
*. o* 
ij * NO HRS 
* * 
* KL * 
* * 
PE tt: 
V 
es NC CHART 
Jl * LILLE PPLE Lette e: 
; *P 5P000 * 
* 2ND e Hm eee ew eee ee ne * 
*. LINE BLANK .#-------- >* * 
. .* * PRINT A LINE * 
*. -* * * 
*. 6% Pee E LTE L TLE Ler rry 
YES 
Trt! 
* * 
* Kl #-> 
ee ee eee a ee ee ee ee ee oe ee ee ee ee ? 
OR 


Vv 
WORK | a eR 
* * 
* RETURN * 
* * 
Pere trrrr rer sf fs 


Fae 


Program Organization 75 


Licensed Material-Property of IBM 


PSS000 
$oigk KB) dotok tok ak doko 
* 
* ENTRY * 
* * 
TTre rrr rrr eT te 
Vv 
eT Troe Tr ret rrr. 
* o 
*CLEAR ASSEMBLY * 
* AREA * 
* 
* * 
BERG IO IOC 
V 
o*. 
Ol : e 
o* x, 
ANY e YES 
#2 EXPRESSION .&-—----- = 
. ERRORS V 
: .* atk tok 
ae. *002* 
#° NO * Hox 
* 
* 
Vv 
err TiserTrrere re ts 
* * 
* SET NUMERIC & 
*PART OF OP CODE* 
* * 
* * 
ere rerr rr rT Te ret 
Vv 
eX, 
Fl x, 
° *. 
o® *. NO 
*. ABSOLUTE eX eee ee oa) 
*. REGS e Vv 
, : teks kook 
xe 4 *002* 
* YES * B5* 
* * 
| : 
Vv 
o*e 
Gl *, 
o* * 
o* VALIO *. NO 
*, REG # Kammerer v 
we, x Pet 
*, *002* 
* YES * F4* 
* ok 
* 
Vv 
TTT TT TTT Tre TT 
* x 
* SET ZONE PART * 
: OF OP CODE bs 
* * 
ASIII IOIOIO Rok Roi tok ak 
Vv 
oXe 
Jl x. 
* *. fol kk 
.* *. NO * * 
*. TYPE O oXe—-—-=—>* AB * 
x, .* x * 
*, .* soko 
x, Ok 
* YES 
Vv 
o%*e XK, 
K1 Ke K2 x, 
o* x e 
e *. YES 0% VALID *x, YES 
Ke ABSOLUTE @ Keene x. LENGTH e 
e LENGTH o* *, o* 
x, e e o* 
* Ox x GK 
| NO * NO 
Vv Vv 
ek KK err 
*002* *002* 
* BS * * B4* 
* * 
x * 


x 
o* TYPE *. YES 


*, 718, OR 9 o* eee ee 
* * 


Me I C2 ca ak a teak ak ak ak ok 
* * 
*SET Q CODE FOR * 
>* TYPE O * 
* * 
* * 
BORO OR Rt kok ak a kok ka ak 
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o*, eX, 
AS x, A5 x. 
x * * * 
o* *, YES MVX « NO 
>*,. ABSOLUTE OS Se ee ae >, VALID Q- eX 
e LENGTH . ° ODE ° 
x, * x, * 
*e Gx xe Ak 
* NO * YES $08 soko 
| 002* 
* 24x 
V] Ok 
ek ko x 
*002* Vv 
*x BS* eX. 
x BS x. 
* * x, 
o* VALID *,. NO 
x, LENGTH eX 
x, * 
x, x 
x, a Vv 
* YES ee ska ok 
*002* 
*x B4x 
x 
* 
o% 6 
C4 x, RRC C5 ae ak ake ate aca ate ak 
e e * * 
OPERAND *. YES *SET Q CODE FOR * 
>*. 2 SPECIFIED .*-~-— x TYPE 1 . 
an * | * x 
*x V RRR Re ak ac aR ake a a aie ak ake ak 
* NO see ek 
* 
x FI * 
* V 
tek eo steak oe 
*002* 
V * AL* 
He RC I 0)G 2 a a ae ae ae a ak ak ak x x 
x * * 
*ADJUST OPERANDS * 
* TO LOOK LIKE * 
‘ TYPE 4 * 
SR IORI ak i a ak site ak 
ae 
* * 
->* F3 * 
x * 
ae oko 
o*e 
Soko 2k EG a a ak ate ak ak ak ake ak E5 *, 
x * x * 
*SET Q CODE FOR * e« NO 
ME TYPE Ty 8e9 Ranewesss >*. TYPE 8 ro 
x x x, * : 
FORO ROR a ake ake aca ae ake ak a ake ake ake . eX 
x Y +eane 
Keke x 
5 ORF 
->* jJ5 * * * 
* 
se kok 
o*e 
F4 *, 
o* x, 
e* ABSOLUTE e NO 
>*e IMMEDIATE .*------- 
e BYTE e Vv 
i * OK OK 
Ke 9 ® *002* 
* YES * BO* 
* 
V 
$OROROIOK G4 RR ok ak 
x * 
*SET Q CODE FOR * 
* TYPES 2541596 * 
* * 
x * 
SOR ROR R RR a a a a ake akc ak ae ae 
V 
o*, oXe 
H4 e H5 x, 
o* x, ox e 
o* TYPE *,. YES e* OPND 1 *, NO 
*, 394 o Kee memnnm——>%*X, «©60ABSOLUTE Pi Sate) 
Ke e x, eX \ 
x, e * o* 
x, ex x, o* Vv 
* NO * YES aka oak a 
ke ak ake ak *002* 
* % * BSx 
*x J5 *-=> * 
x x * 
V seiko Vv 
o%, eve 
J4 ee J5 Lr 
x x * * 
e YES ° VALID e NO 
x, TYPE 5 o kee DK OPND 1 ots 
“x, .* *. o* 
Ke  % Keg ¥ 
* NO * YES at 
*002* 
x 05% 
V x x 
ko * 
*002* 
* Al* V 
x Ok RCI a IC 5 ak ak a a a ak te ak a ak 
x * 
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* 
*SET OPNO 1 FOR * 
c TYPES 4,5,8 *--—-- 


* * 
BR oR ke af ae eae ake a ok 2h a af ak a 2 | 
Heke oe ak ak 
#002 
* Hix 
x & 
*x 


01-C5 
O1-E5 *, e *. oe 
01-K3 ahh *, ¥A? ee. aoe ry 
REG *. YES o* *. YES .*° VALID) “*. NO 
-->*) USED IN 6 ¥---~---- >*> ABSOLUTE | .*-------- >*, VALUE 3. t--- 
- OPNO 1 . - bISP.. *. .* 
*. .* *. .* *, : 
#. oe ot *. v 
* * NO * NO * YES CK 
* * *x * 
#001 #05 * 
* J4e * * 
KKKKE Km KK 
Vv 
Vv eX 
fei B Doo toto & B2.  *. 
* * * x, 
* SET OPND 1 * : US ING - NO 
* "ADDRESS * *> IN EFFECT  .*---— 
* * *. .* 
HH He HK IH eK RK KK *, Vv 
* YES ok RK 
* * 
* B5 * 
* * 
he oe 
Vv 
o*. Vv 
C2. °*. $C 3 FO Ce 
KKK * * * 
* * -*” VALID °*. YES * SET OPND 1 * 
* F5 #<---—*, DISP pe--—----->* DISP. * 
* * : .* * 
tote *, .* * * 
*x, 6 KKK KK KH KKH KKK 
* 
Cw a a nw we a we a a a rt nr ener « 
Vv 
Ol *, 
o* TYPE *. NO 
e Or 1,7 “os 
*. .* 
ee V 
* YES $k 
* 
* HL * 
REKK 
Vv 
o*. o*. o*, 
El *. E2 *. E3 *. 
* e e* *, 
o*° REG, YES ; *. YES .*° VALID "*. NO 
°. USED IN o&--=----- >*> ABSOLUTE | .#-------- >*, VALUE es 
*, OPND 2. .* *. DISP  .* *. .* 
*. e *. e e e* 
eo 9 * *. o* e 0% Vv 
*° NO *° NO *° YES ek 
x cd 
* 05 * 
* x 
KKK 
Vv 
Vv o*. 
KK KKKE | KKK ERK HK F2 *, 
* * o* * 
* SET _OPND 2 * o* US ING ° 
* ADDRESS * *. IN EFFECT .*----— 
* * *, e 
* * *. .* 
Re uC a tok tok $ totoiok ee 
* YES eK 
*% * 
* B5 * 
* * 
KKKK 
V 
o*. Vv 
G2. *. KEKEEGZ EERE RE 
eKKK Pe x, * * 
* * NO .* VALIO *. YES * * 
* F5 *<----*,. DISP keene >*SET OPND 2 DISP* 
* * *, .* * * 
+4 ee *. .* * * 
x o* Slo a to io tok tot tok ae 
* 
ek K 
*001* 
* K5 *-> 
* KK | wee we wee oe ww wn wn nw nw nn rn rn nn er ees « 
wk HK 
V GO/01/81 
Mea HH MY] ak he he ae eK oe aK I 
*PSHOO * KK 
Kew een wee we ee oo ¥ * * 
->* PUT CODE IN * * H4 *----> 
| * OBJECT RECORD * * * 
* * me KK 
ee KK IK ek eK ke | I HK 
KK 
* * 
* HL * 
* * 
kk & 
Vv 
o*, NO CHART 
Jil Ke Heme He He | D He he Me ke ak eK eK 
o* *. *PSX000 * 
.* *. NO *------------+- * 
*. NOLIST «=. #--==--==>#CONVERT OBJECT * 
*. is * CODE TO HEX +* 
*, .% he Me He he He He ae Me aK he He he eK 
* YES 
KKH 
* * = 
* K1 *-> 
* * 
ak kKKH 
Vv 
Vv He ate He a IC De Me ae He he ee ak 
Hw aK KY] RK KK KKH * * 
* * *PUT OBJECT CODE* 
* EXIT #€ ae * IN LISTING * 
* * * * 
HAHAHA RA AK KH He KH * * 
He he he ae Ae We he he ah 3 a a 3 ae 
TO: PSO999 
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01-85 
* te 
*001* 
* K2* 
* 
x 
V 
$2 IIORB 4 tok ee ok 
* * 


# # #OOQOO0O 
HH RNP LS 


< 


Ok $kOKB 5 ek tok tok teak 
* * 
* SET ERROR * 


* SET ERROR * 
*INVALID LENGTH * —>* INVALID * 
: : *RELOCATABILITY * 
Me He he He He ee eK Re OK a aK Me eo He eo eK OK Ke 
eK 
* * 
* BS * | 
v * “Vv 
ak he a Xe he he ke 
* * * * 
* HG * * HG x 
* * * * 
KERR a & kk 
ww KH KK KKK 
01-A5*001* *001* 
* FZ * J5* 
*x & * 
* * 
V Vv 
tka DG tok a $3 RD 5 ito ik toto 
* * * . * 
* SET ERROR #* * SET ERROR * 
* INVALID * —>* INVALID * 
*IMMEDIATE FIELDS * DISPLACEMENT + 
KKKKKKKKKKKK KKK KK Me He He He he Hh He He He He aK He HK 
KKK & 
| oS 
* 05 * 
Vv * * 
wR KK KKK 
* * 
* Hq * 
* * 
wa KK 
¢ mw we we ww ow wwe = e 
Pe et 3 Peet 4 
*001* * * 
* G1* * FS * 
*x * * 
* 0k 90k 
Vv Vv 
HK KR EG tek eK Kk RKKKKRE 5 eH KK HK KK 
* * * ; * 
* SET ERROR * Vv * SET ERROR * 
* INVALID to *ADDRESSIBILITY * 
SREGISTER USAGE : . ERROR : 
Me HR He he HK eH HK He HK HK IH Me He He Me ae He He He He fe he He HK 
RKKKK 
*001% 
* Dl* 
*x * 
* 
Vv 
ae eee om ae a a oe es ee es a ee ¢ 
V 
ead a alec 
* ZERO OBJECT * 
* COOE * 
* * 
* * 
We He Ke ae ek a aK a 
Vv 
o%, 
Jo” om, 
* *, 
-*° LENGTH °*. YES 
*. Ge Te O “— 
ee v 
sek 40% 
ea * 
* * * HL * 
->* KL * * * 
* Km hk 
a Hak 
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PSB000 
HRKKA | RKKEK KEKE 


* * 
* ENTRY ‘ 
He Ke He MIM He ee He ae HK oe * kK 
*x * 
* BS * 
* * 
we KK 
Vv 
o*, Vv 
Bl *, #RERKBS RE EE EE RR 
o* *. #8 tok * * 
-*  OROP *. YES * * * SET LOCATION * 
*, INSTR ot---->* C3 * * COUNTER TO. * 
: o* * * * START VALUE * 
*, o* ae ae teak * * 
*,. * * * ek eK ek eH ek KK RK KH 
*" NO * C3 * 
* * & KkKKK 
ek * * * * 
* C4 toon * C5 #-> 
* * * * ‘ 
Vv Vv aE ett 
0%. o%*, Vv Vv 
C1 *, C3) WEA 4 Re THRASHER KE REE EE 
* * * *. * * * * 
o* ENTRY *. YES °* VALID. *. NO * ERROR INVALID * * SET START * 
*. OR EQU e*-=-- *. REGISTER  .%&------- >* “REG. USAGE * * ADDRESS IN * 
*, o* | e SPEC o* * * OBJECT CARD * 
*,. * «*, o* * * * * ~ 
*. « ® Vv *, _* RAKKKKKKKKKKKEKKKK EH Mee He Me Beste Me Me she He he He hehe oe 
* NO %* KK * YES 
* * KKH 
* £3 * * * 
* * * 04 *-> 
eKKH LS ee ern oe ae Oe Ow eae ae ace cam ew 
Vv * eee 
o*, Vv 
D1 *, #ERERDZ ERE REE EE Vv 
o* *, KEK HK * * EKKKOGKKKKKKKEKE 
é* *. YES * * * SET USING # * * 
*, ORG ot-—-->* H1 * * SWITCH OFF * * EXIT * 
‘ o* * * * * * * 
*, o® KKK * * REKKKKRKK KKH HH 
*. .* SKRAKKKKKKKKKKKKE HK 
* NO TO: PSQ999 
% tok & 
* * 
* €3 *-> 
* * 
Vv eka 
o*, V NO CHART 
El *. RKKKKES RHE KEKE EK EH 
o* *, KKK HK *PSxX000 * 
e* START *. YES * * Ba ene = ---* 
*, - INSTR 0 t---->* BS * * * 
®. o* * * *CONVERT TO HEX *# 
*, * KeKK * * 
*, .* RAKKKKKKKEKKKE KEE HE 
| NO 
Vv 
.*, o®. Vv 
Fl, F2. *, rT tixt TTT TTT ttt. 
*" UsING *"s. YES ** VALID" "*._NO * PUT VALUE IN # 
o* IN e Y o% e 
e Yrese @ Ree nnn —— > *, REGISTER eke * CPST Y Ng Fodh * 
*. o* *,. SPEC e * FIELD * 
*y o* *. o* * * 
we 4® *, ot Vv eit a 
*° NO * "YES tak ak 
oe Ets * * ett 
* * * C4 * * * 
*->* D4 * '->* 04 * 
* *x ekkeem * * 
* Kk Kae KH 
sn 24 OR RRR 
* * 
*SET BASE VALUE * 
* AND USING * 
* SWITCH ON” * 
KK * * 
* * REKKKKKAKKKKKEK KKK KH 
* HL * 
* * % Ke 
mK KH * * 
#->* EQ * 
* * 
KK KK 
VNO CHART 
Wek AH) KKK KK KKK 
*PSKO0O * 
<a a ae * 


* SEARCH TO * 
SCONTROL RECORD : 


HAM He HA he ae ie eK eK I 


ciudajaeeaesiwes 
* * 
* SET_NEW * 
* LOCATION * 
* COUNTER VALUE + 
WA He He eH Re he ek HK sh KK 


V_GD/01/G4 
sek ORK | tik tote 


*PSH700 * 


Reem ee wn ee ee K 


* PUT OUT ANY * 
*CODE on OBJECT : 


ore ro re rT eter r 
tO 

* * 

s=>* C5 * 

* * 


kK 
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PSA000 
ERED )EEREK KEKE 


* *” 
* ENTRY * 
* * 
KEKE AKAKKEHE EKKK 
Vv 
o*. 
Bl ° 
o* 
e YES 
*, DC/DS t------- 2 
e e* REKKE 
*. o® *003* 
* NO * B1* 
| * 
Vv 
o%*. 
Cl *. 
e *, ors Fe 
* END *,. YES * * 
e INSTR o#————>* C3 * 
*, .* * * 
e o* KKKK 
*. * 
* NO 
Y 
Ol *, HXKKEKD QEKKKKKKKEEK 
e *, * * 
o* EXTRN *,. VES * GET EXTRN * 
we, INSTR @ Keene De NUMBER : 
*, Pe * * 
*. -* RKKAKEKKEKKKKEKKEKE 
* NO 
KEKE 
* * 
* E2 *=-> 
* * 
Vv kK 
o*. V NO CHART 
El x. RKEERKE 2EKKKEREKERE 
o* *PSxX000 * 
° ISEQ *. YES Ke en nn ee nnn tk 
*, INSTR e ken * * 
+ o* SCONVERT TO HEX : 
e e® Vv RKKKEKKKKETCKEKKKEKE 
* NO KKK 
* * 
* B44 * 
* * 
KKK 
Vv 
o*. Vv 
Fl ®, RAKKKE 2EKKEAEKEKE 
e * ® 
- YES * PUT VALUE_IN * 
*. NOLIST oom * ADDR. FIELD . 
m, * * * 
e e® Vv REKKEKKAKKKKEEKEKEE 
* NO ee K 
| * * eKKK 
* G2 * * * 
v *  & *& G2 *=> 
RKKKE KEKE * * 
*002* eee 
* Bl 
*x * Vv 
* KHEKKGAREKEKKEEE 
* * 
* RETURN * 
KHKKKKAKKEKKEKEKKK 


KEKE EC ZEREERE EEE 
* 


* 
* SET DEFAULT * 
*ENTRY POINT TO * 
* = X*FFFFE 


*e 


* 
KEKKKKEKKKKKAKEKES SE 


; eX. 
03. *. 
.* *, 
e* CONTROL *. YES 
*. RECORD ee 
*. .* 
.. ee | 
*. o* Vv 
* NO KH 
* * 
* E2 * 
* * 
RKKK 
Vv NO CHART 
KEKKKE SRKKKKKKEEE 
#PSEO00 * 
* EVALUATE * 
* EXPRESSIONS * 
KKEKKKKKKCKKAKKKE & 
Vv 
e*. 
F3. &, 
° "ANY . YES 
*. ERRORS e ¥=--—- 
"ee ae Vv 
* NO RKKK 
* * 
* E2 * 
* 
KREKKX 
Vv 
REKKKG ZEEKERKKKE SE 


* * 
*SET ENTRY POINT * 
* SPECIFIED * 
* * 
* * 
BAAR REE EEE EE 
Kk 
* * 
->* E2 * 
* * 
eR 


KKK 
* BG *#---9 
* * 
eek OV 
Ba “*, 
e*” CONTROL “*. YES 
RECORD. ok -==— 
*. .* 
e o* 
*. v 
NO wk Kem 
* * 
* G2 * 
Km eH 
V_GF/OL/Al 
KeRRE CG ERE EREERE K 
*PSY000 * 
* INITIALIZE  * 
* PRINT ROUTINE * 
RKEKKEKKEKEKEKKKKEKE 
ekKKK 
* * 
~>* G2 * 
* * 
wk Ke 
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*001* 
* Fl* 
* * 
| 
Vv 
o*. 
61 *. 
e weeKK 
e YES * * 
*. EJECT a tamnn * B4 *----> 
e o* wk 
eo «% V 
*° NO am 
* * 
* EG * 
* * 
ekKeRH 
¥ 
Cl. ERC 20 EERE ERE 
‘ * * 
*. YES * SET PRINT * 
*. PRINT o#aa——---=>% PARAMETERS AS #---- 
; .* * “REQUESTED * 
*. P * * wet tek 
*, .* MMe he he he he ae ae He ee ee a a Nv * * 
* NO ae * 03 * 
* * * * 
* Fl * tek tok 
* * 
ett | 
Vv V 
o*, o*, 
O01 *. D3 *. 
o* *. eee .* ‘ 
*, YES *  * o*” PRINT “%. YES 
*, SPACE e teem > * 03 * *. OFF ——_— 
‘ ‘ x * *. .* | 
*. .* ae *, ; 
%. ®t eT, v 
* NO * "NO eee 
* * 
* 64 * 
* * 
Ra KK 
M 
—l *, fo RES Ok ke 
P ‘ eee * * 
* *. YES # * * UP LINE COUNT * 
*. TITLE ot—m—=—>% B4 * *BY SPACE COUNT * 
*. e * * * * 
*, o® wee K * * 
*, 9% eh He he ee ae HK KK KK HK 
* NO 
EEK 
* Fl *-> 
* 
eee v 
oo. 
v F3. &, 
KKKKE ] eKKSEKE KEE * 
* e LINE *,. YES 
* RETURN * *. CT. > PAGE  .*#-------= 
* * e IZE o* 
HERRE HERE HES EE *. ‘ 
x, ot 
* NO 
ot Ra G 3 Oe 
* * 
* INSERT BLANK * 
* LINES * 
* * 
* * 
Me A he ae Be Mee a He he ae eK a a hc Oe 
KKK 
* * 
->* FL * 
KKH 


$8 B 4 fo oo tk 
* * 
* CLEAR TITLE * 
* FIELD * 
* * 
* * 
Be ICRC RO IO ROR 
* EK 

* 

* C4 *-> 

*RRK 

Vv 

EEE CG HO 


* * 
* PUT RECORD IN * 
* HEADER * 


* * 
We A Me he He oe he ee ae ah ae he OK 2 


V NO CHART 
CHERKES EKEEAKE EEE 


* 
*START NEW PAGE * 
HERE AAK HEH RERA EK 

KKKK 
* * 

* G4 *-> 

* * 

KKKK 

V 

KKKKKGGKKAKREKKKKK 
* 


* SET NO PRINT 
* SWITCH 


HREM 


* 
240 ee Me He Me Me Me ae ah he ae he ak ok 
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>* 
* READ A RECORD * 
* * 


eK 
* * 
* C4 Kamm 
* 
Re KK 
GK/0O1/ 
HH HY S tk ke Ke ek HK 
*PSWLOO 


KKH KA H KKK HEH KH KK 


REKKK 
*001% 
* Bl* 
* * 
* 
V 
KKKKKB ] RK RK HK HK 
* * 


* * 
SSAVE PARAMETERS® 


* * 
Me Me a he MK Oe ae ae he a a ae 


V_NO_ CHART 
HERR | RE RHE RRR H 


*PSEOO0O * 


fa Ses at Sea oy 


* EVALUATE * 
: EXPRESSIONS : 


Meme He ee Beam oh He ae He He He ee 


V 
o*, 
O01 *. 
o* *. 
o* VALID *. NO 


*. LENGTH o oon om 
* * 


V_NO CHART 
we eR RE ] RK RK 


*PSM000 * 


sr oon es sew eee ew ee es HE 


*MULTIPLY LENGTH*® 
*6Y DUP. FACTOR : 


Mee He Me eh Ke Hk KK 


V 
o*. 
Fl *. 
*. 
VALIO *. YES 


e e 
*, o* 


$k GLAD ER to 
* * 
* SET INVALID * 
* DUP. VALUE * 
* * 
* * 
RKKRAKKKKKEKK KEKE 
eKkKKK 
* * 
* Hl *-> 
* * 
kK 

V 
KERKE [KEK KEK KEKE 
* * 
* RETURN * 
* * 
REKKKKKEKKK KEKE 


wh CK | a a Roto 
* a 
*PUT ADORESS IN * 


* ASSEMBLY AREA *<---- 
* * 


* * 
KHKKRKKKAK KKK HK HK 


wh EK 
* * 
->* D4 * 
* * 

* eae 


** 
*. DUP. FACTOR .#---—- 


REREAD DEE REAR RH 
* * 
* SET_INVALIO * 


-~->* LENGTH ERROR * 
* * 
* * 
Trt TTT Tr Tt Lire ty 
we 
* * 
->* HL * 
* ee 
NO CHART 
Lad LLL he ike 
*PSxX000 . 
~-->*CONVERT L.C. TO* 
* HEX i 
SO IER Ro RO ICI tO He 
Vv 
o*. GDO/01/G 
G2. **, $k AG EE 
° *PSH700 * 
.* *, YES a * 
*. OS (kana --- >* PUT OUT ANY * 
*. o* * OBJECT CODE * 
*, .* * * 
x, 4h Tiere tert ett ts 
* NO 
eRe 
* * 
->* HL * 
v Re 
*. 
H2 *. 
.* *. eK 
ADORESS *. NO * * 
#2 CONSTANT = J#---->% AG # 
*e, * ak 
x, oe 
* YES 
¥ 
J2° “*, fei RO 3 te i ok 
.* *, * * 
YES .* NAb Ee *. NO * * 
----#, ADDRESS .#-------- >* SET ERROR BIT *#----- 
*.CONSTANT .* * * 
*, .* * * 
*, * tri titit ite rots. 
* 


* * 
*CLEAR ASSEMBLY * 
ae AREA * 


we RAK AG * 
ZPSWLOO 


* 
“%* READ A RECORD * 
* * 


A ae ae he ae he he ae he he ie a a ok I a ok 


KKKKABA KKARAK KKH 
* * 


* STORE IN * 
* ASSEMBLY AREA * 
* * 
* * 
fk RO RR RR RO 


o* *. ek 

*. YES * * 
o#--=->* AG * 

* * * 


*, -* ee 


VNO_ CHART 
REREKD GREENER A HE 


* * 
STestT FOR ERRORS * 
He RO RR OR OR RR BO 


V NO CHART 
HERA K EG EEE 


*PSxX000 : 
*CONVERT DATA TO* 
* HEX. * 


He ae Ae ee He eae ae Oe he ee ec OK Oe 


ere ee err rere 
* * 
* * 
*PUT IN LISTING * 
* * 


* * 
RAERKAKKKKKKKEKKKE KE 


V_GG/O1/A3 
REAEK CG ERKREAEEE KE 


*PSZ000 * 


Ke ae ee ee ee mae K 


* * 
* PRINT DATA # 
RHEKKKKKAKKACAKKKKK & 


Vv GD/ B 

REKKKHGE RKKKEK * 
PSHOOO * 
* 

* 


*O 


*x 

faa n neem nnn nee * 
* PUT DATA IN 

Pl OBJECT CARD 


EERKEKKEKKKKERAKKEK 


ERKKK IGEREREREKE E 


may 


* * 
KRHA KKK KKH HK H Vv 
* 
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PSwooo 


Me He he ae BY He she ae he ok 3 ake ak a 
* 
* ENTRY * 
* * 
KK KKK KKK KK HK KKH 


V 
sek EC ooo ook 
* * 


* * 
*SET UP LINKAGE * 
* * 


* * 
Me Me eK He He He Me HH I he 
< we owe ere eee ww a wee 
Vv 
o%*. 
01 *, 
o* * 
o* WRITE A *. YES 
*. BLOCK IN oe ¥----- 
*. PROCESS 
Ye. _e 
* NO 
, ee teslentenentertoad ~-— 
V 
pied acid eae caiha 


* PUT RECORD IN * 
* CURRENT BLOCK # 


* 
eH He he Hee teak ae eK a kK 


V KA/OL/AL 
$e IG | 
*CAMOOL 


‘en dol oe aan ined ania mae Gm ae 


* WRITE CURRENT * 
* BLOCK 2 


A 
* 
* 


* 
RKKKKKKKKKKKEKKKEK K 


----------> 


V 
PEEP ARE LIED tS tt 
* * 
* RETURN * 
* * 
SORORIOR to Roe 


PSwolod 


KK KH AD K KA HAH KKH 
* * 
* ENTRY * 
* * 

eK KK OK KK IK IH Kk 


v 
HAHAH HK RB D he Me He He ke He HK eke 
* * 
* * 
*SET UP LINKAGE * 
* * 


* * 
Me Me Me He He HH He KH HK HK 


KA/O 
HERERO DEE EERE 
*CAMOOL 


tm 


o* e 
~---*, PERMANENT .* 
* ERROR * 


*. .* 


*. o* 
| Yes 
V 


IKE De RK 
OJ * 


kK KH OK He KH KKK 


* EXIT * 
KRAEKKKKEKKKKKE KEK 
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PSW100 


KRKKBS EKER RE EK 
* 
* ENTRY * 
* * 
KRHA I RARE KH 


V 
REKKKC SE MKKKKEKKKE 
* * 


* * 
*SET UP LINKAGE * 
* * 


* * 
Me ae He He oe ae he he ae he ae eo oe a aK 


*. PROCESS o* 


REG REC ER 
* * 
*GET RECORD FROM* 
* LOCK : 


* * 
He HK RE OR 
Vv 
o*. 

Fa =*. 

° ¥. 

e* BLOCK *,. 

EMPTY e 


KACOL/AL 
RERKKGGREREREERE & 
SCAMOOL : 


* * 
: READ A BLOCK : 
KKK EEK ERE RE RHEE EE 


0 on ane ow “<> 


v 
KRKKKHSL EKAKKEKEKKE 
* * 
* RETURN * 
* * 
KHKKKRKKKKKKKKRE 


PSW200 
RAS Hk ete ee 


* * 
* ENTRY * 
* * 
REKKKAKEKKKKE KEKE 


Vv 
aaa acc 
* 

* * 
*SET UP LINKAGE * 
* * 


* * 
EKKEKKEKKKKEKKKEKEE 


KA/OL/A1L 
HK HAY SHH ERR EK 


*CAMOO1 * 


ee es 


-~-->*WAIT ON CURRENT® 
* READ * 


* * 
RKEKRERRKKKKKKEKEE 


Vv 
RRAKES HERE EE HE 
*EOJ * 


Ree oe we wwe me et 


* EXIT * 
WR RR 


MODULE $ASPDO — PRINT DIAGNOSTICS (PHASE 35) 


Main Storage Map: Figure 11. 


Entry Point: $ASPD1 — entered from Phase 30 via FETCH. 
(For Model 10 Disk System, see /BM System/3 Disk Systems 
System Control Program Logic Manual, SY21-0502; for 
Model 12, see /BM System/3 Model 12 System Control Pro- 
gram Logic Manual, SY21-0046; for Model 15, see /BM 
System/3 Model 15 Supervisor and [OS Logic Manual, 

SY 21-0033.) 


Charts: HA-HE. 


Functions: 


@® Controls Phase 35 processing of error records from error 
file (PDMO0O0—Chart HA). 


@ Performs functions associated with termination of Phase 
35 (PDLOOO—Chart HB). 


® Converts the error field into error code; prints the asso- 
ciated codes and diagnostics (PDCOOO0—Chart HC). 


@ Prints the printer listing header and counts the pages 
(PDGO00—no chart; functionally the same as PEGOOO 


routine in Phase 29). 


@ Controls page size of printed output (PDPOOO—Chart 
HD). 


@ Converts binary numbers to decimal (PDVOO0—no chart). 


@ Provides print module interface for print operations 
(PD ROOO—no chart, functionally the same as PEROOO). 


@ Provides interface with disk data management (PDWOO00— 
Chart HE). 

Input: 

@ Error counts in ASMCOM. 


@ Error records written in $WORK2 in Phase 30. 


Output: 


@ Printed listings — diagnostic messages and error summary 
statements. 


Page of LY21-0504-3 
issued 17 March 1976 
By TNL: LN21-5382 


Exits: 

@ Normal 
1. If cross-reference is required, Phase 40 is fetched. 
2. If cross-reference is not required, Phase 41 is 


fetched. 


@ Error — control is returned to scheduler via Halt/Syslog 
or EOJ transients. (For Model 10 Disk System, see /BM 
System/3 Disk Systems System Control Program Logic 
Manual, SY21-0502; for Model 12, see /BM System/3 
Model 12 System Control Program Logic Manual, 
SY21-0046; for Model 15, see /BM System/3 Model 15 
Supervisor and [OS Logic Manual, SY21-0033.) 


Diagnostic Messages Tables: 


®@ Contain error codes and diagnostic message text for all | 
assembler diagnostics. 


@ Used to convert error bit strings to diagnostic messages. 
@ A diagnostic pointer table contains addresses to the 


diagnostic table. There is a pointer for each bit position 
in the error field. 


RESIDENT SUPERVISOR 


$ASROT 


Communications Vector 
Assembler Common 
Disk Data Management 


$ASPRC (see Section 5 for description) 
Printer Data Management * 


PHASE 35 CODE (Module $ASPDO) 


PDMOO0O 
PDLOOO 
PDCOOO 
PDGOOO 
PDPOOO 
PDVO000O 
PDROOO 
PDWO0O0O 
Constant Block 

Diagnostic Message Tables 


DISK BUFFERS 


* Model 10 only 
Figure 11. Phase 35 Main Storage Map 
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$ASPD1 
ak ee A] ke ok i a a eK 
* * 
* ENTRY x 
* * 
ee Me ae ak he 3h ake he ak ake 3 2 aie 
POMOOO Vv 
Meme ae He RB YL ke oh ake ake ae a ake HK 
* 
STABLISH  * 
*COMMUNICATIONS * 
* * Ye a ae 
Me a Ae He He she age se ae ae he 2k 2 she ae He * * 
* C3 * 
* * 
a ak Xe 
Vv 
o*. KA/OL/A1 V HC/OL/AL 
Cl x, He he ae ae He CD he 2h ah ae ae aie aK oe aK MR He He MK CB oe ae 3 oe ae 9K 9K 9K Ke 
.* : *CAMOO1 * *P0C 000 * 
e NODECK *, NO Ce I ee Oe a OO Fe nt He ee ee ee, ee ee * 
x. € NOOBJ .%-----~-- oe PUT OUT LAST * PRINT DIAG AND * 
: * * BLOCK OF OBJ * *CODE FOR ERROR * 
*, .* * CODE * * RECORD * 
x, 9X P He Ae he ie ae Re he ee he ee a oe a 3c He Me Re ie he he he he a ake ie 2 ae oe i ake ok 
* YE 
Raw en nn nnn on nner err ee 
Vv 
Vv oe 
fektoiokD | dole katoi D3 z 
* * * x, 
*xBLANK QUT PRINT* .* ANY *. YES 
* IMAGE AREA * x: MORE en 
* R, RECORDS o* 
* * a .* 
ek toi tak dei ak ak doi ak aoa ak *. AX Vv 
——* NO $e OK 
Ke * * 
* * * Jl * 
* £3 *-> * * 
* * eK Ke 
Vv He ke Vv 
-*. PDM030 a, 
El ‘ E3. °*, 
3 : .*ROOM ON*. 
.* ANY *. NO .-* PAGE FOR *. YES 
*. ERRORS ok-—=5 *, TRAILING .%#--> 
*, * . STMT. 
*, Po e e 
es ee o* 
* YES hea * NO 
x E3 * 
* 
Heke Ke 
M V NO CHART 
We He A CE ok he oe he ak ok oe Ke a] Re a He EF ak he ae ae ak 2 ak ok 
* *PDR300 * 
*INITIALIZE FOR *® ee Se Elle * 
* DIAGNOSTICS * 
* * #60 TO NEW PAGE : 
Me rhe oe he shea ah ah he ae she ae 9K ah 3h Ie 3c He ae i he ee ake ah a oe ake oe ae ok ok Ko 
< mn ae ae ow ae ae tees ow ees 
y V NO CHART 
Mea KG] ae see ae teak a ak a ok Bok ORG 3 dak tok ok a ak ok 
* * *PDV000 * 
* PREPARE WORK * iil sen en 
*DTF FOR ERRORS * *CONVERT NUMBER * 
* * * OF ERRORS TO. * 
* * * DECIMAL x 
Merk a ae eae ae ak he ah she oe a ae oe oe 3 Me He He Me He Ke he aie ake ake he ae eK OK 
Vv NO CHART PDMO50 V NO CHART 
Me He a AY Yk ah ae ae oe 3 oe aK a He HD ok ae oe a ae ak KK KK 
*P0G000 * *POR 100 * 
P4 * * WRITE: TOTAL * 
* WRITE HEADER * *STMTS IN ERROR * 
* * * IN THIS ASM= * 
ae oe ake he Be ae ale af ake she fe ake she ah he afc ah ee ake ake ae He a he ake he he ae ie he oo 
kk ke 
* * 
* J1 #> 
* * 
He Vv 
PDMOLS V HE/O1/A3 o% 
Me ae ae he ae JY he oe ake ae ake ae oe ae ake oe J3 *, 
*PDWO00 * ‘ *, 
pi sips alae .* SEQUENCE —*. NO 
* READ AN ERROR * x. CHECKING .%---- 
* RECORD x *. REQUEST .* 
Merk He He He ake ake oe she she oe ae He ae eK ke *,e 4X 
* YES ak 
* * 
* HS * 
* * 
HK eK 
Vv 
V NO CHART o%e 
Mee Hk Me HAC Dah a ae Beak aK a ah a K3 *x, 
*PDVO00 * kK HK * 
Reena eesee ae * * * * ANY *. NO 
* CONVERT #---->* C3 * * £5 *<--—-—k, SEQUENCE  .%---- 
* STATEMENT NO. * x x x . ERRORS . ] 
* TO DECIMAL * Hak ak ak He *, .* 
tek Rak Raa ok akg a a | Vv 
* ee oe 
* * 
x 65 * 
*x *x 
em KK 
Chart HA. Main Control Routine (PDMO000) 


Licensed Material-Property of IBM 


aa ae 


#READY NUMBER OFF 
sPORE ENCE ERRORS* 
OR CONVERSION Fe 


peacaicechexeeese 


V NO CHART 
SECEAE SAS EEEE EES ® 
~ ovo00 


: CONVERT TO * 
* DECIMAL z 


He ae ae ee a ae he he ae a oe a ae eo 


xPRINT NUMBER OF* 
repaid ERROR S* 


Me ohe he he ae a fe oe 3K aK a ae ak ae ak he 
Ke 
* * 


OEKHS sore Rio 
* * 
x EXIT x 
* * 

Re IG OK tok kok 

TGs PDLOOO 


POLOOO 
aided hlelaieiedaiadae 
* ENTRY * 
* * 
2 dO OE 


Pe 
*FETCH * 
k-o- ------- - * 
*EXIT:s PHASE 40 * 

reTrrretis ft. ot. | 


POLO010 


REKKCGEKKEEKEKE 
* 


*FETCH 


ene n> eee en enw ee oe 


KKKKKEEEKKHREKEKE 


Chart HB. Termination Routine (PDLOOO) 
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PDC000 
REKKKA ] KKK KEK KKH 
* * 
* ENTRY * 
* * 
RKKKKAKKKKK SE KKK 


Vv 
$B] $2 ke KE 
* 
* SET ERROR * 
SNUME R TO ZERO : 


* * 
REKKKKEKKKKEEK KEKE 


V 
EREKC | KEKE EERE 
* * 


* SET _TEST TC 
* FIRST BYTE IN * 
* ERROR FIELD : 


* 
Sako oo ok tok ako 
* eK . 
* % 
* Dl *=-> 
* * 
kK Vv 
PDCOLO o%®, PDC060 PDCOTO o%*e 
Ol *, wk RED 2 OE Ok TTT Luke TT Trt tte SY 04 *, 
e x, * * * * * $k IK OS HR ek 
o* ANY *. NO *INCREMENT ERROR* * INCREMENT TO * e* END OF *,. YES * 
*, ERRORS IN .#-------->*#NUMBER TO NEXT *=<-------— >*NEXT BYTE TO BE*-------- >*. FIELD e *%®-------- >* EXIT * 
*. THIS BYTE.* * BYTE * A * TESTEO * *, o* * * 
*, * * * * * x, * EKKEKEKEEKKK EEE 
*. o® KAO KK EK REE | EK EE REE *, _* 
* YES ok Hehe * NO TO: POMO20 
* * Prt tT 
* 03 * * 
* * ->* Dl * 
owen ee ~> ae * 
ek HC 
eS en 
* 


* 

*DETERMINE WHICH* 
* 6B ve OF THIS * 
* YTE ARE ON : 
eh te 


V_HD/01/B2 
#EAHEE | OOK HEE EEE 


*PDPOO00 * 


cw em ee ee ere ee ae oe ee on 


* WRITE THE * 
* 0D * 


o*, 
Gl *. 
* * 


NO .* AT END “*. YES 
---*, OCF THIS o Xmen 


*, BYTE.» | 
*. 7* 
*, .* V 
* eeKK 
* * 
* 03 * 
* * 
eRKKK 


Chart HC. Diagnostic Output Routine (PDC000) 
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PDPO0N 
KHEB 2H EREEE REE 
* * 
* ENTRY * 
* * 
1k ee ee 


AeeeeC ZEN RRER EERE 
* * 
*INCREMENT LINE * 
* COUNT ba 


* * 
HREKKKKKKEEREKKKES 
v 
o*, NO CHART 
pe 02 *, REKKEKDZRKEKEKEKE 
a *, *PDG000 * 
* IS THE °*,. YES te == --—--------- * 
*. PAGE FULL .*-------->* * 
*, * *GO TO NEW PAGE * 
*, e™® * * 
*, .* KKEKKREKKKKKEKKKEKK SE 
* "NO 
. wo------------ —----- +++ 
POPOLO V_NO CHART 
#8 KE Oe 
*PDROOO * 
Bw oe ow ow we we ww wwe * 
* * 
*PRINT THE LINE * 
ee eK eK ok HE OK EE 
PDP020 
EKRKEAKREKKEEERE 
* * 
* RETURN * 
* * 
REKKKEKKKKKEKEK KKK 


Chart HD. Print and Count Line Routine (PDPOOO) 


Program Organization 87 


Licensed Material-Property of IBM 


88 


a“ 


Me he He A AD eae ie ok ae ak 


* 
* POWOOO * 
* * 
ate he a of ake ake i a a a i ak ie ak 


V 
oto ORB 3 ok tok kk 
* * 
* * 
*SET UP LINKAGE * 
* * 


* * 
Se Re he oho ae ae ok he ok a a a a ook 


sk #D 3 ARE 
* * 
*GET RECORD FROM* 
* BLOCK * 


* * 
WK RH KK ROK HO 


* 
* READ A BLOCK »* 
* * 


He ek ee He ek eH KK 


V 
$k G 3d ee 
* * 
* RETURN * 
* * 
OR ROR I OK ee 


Chart HE. Disk Data 


$211 C GK 
*CAMOO1 


—~~-->*WAIT ON CURRENT* 
* READ * 


* 
RKKEKKKEKEKKKKEKK SE 


* *, 
----- *. PERMANENT .» 
*, ERROR . 


*. 9% 
* YES 


V 
CRRA E GHEE RKRERE 


EXIT 
RR 


Management Interface (PDWO000) 
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MODULE $ASBX0 — BUILD CROSS REFERENCE (XREF) 
FILE (PHASE 40) 


Main Storage Map: Figure 12. 


Entry Point: $ASBX1 — entered from Phase 35 via FETCH. 
(For Model 10 Disk System, see /BM System/3 Disk Systems 
System Control Program Logic Manual, SY 21-0502; for 
Model 12, see /BM System/3 Model 12 System Control Pro- 
gram Logic Manual, SY21-0046; for Model 15, see /BM 
System/3 Model 15 Supervisor and [OS Logic Manual, 
SY21-0033.) 


Charts: 


[A-IF. 


Functions: 


@ Initializes Phase 40 for processing (BX!1000—Chart IA). 


Controls the building of the XREF sort file (BXPOOO— 
Chart IB). 


Completes Phase 40 processing when end of $WORK2 
is found (BXLOOO—Chart IC). 


Initializes Phase 41 (BXLOQO—Chart IC). 


Moves records from the work area to the XREF file build 
area (BXMOO00—Chart ID). 


When XREF file build area is full, branches to XREF 

file block sort routine (BXS000) for sorting, then branch- 
es to BXW100 to write the blocks into the XREF sort file 
(BXMO00—Chart ID). 


Sorts the contents of current block in XREF file build 
area (BXSOO00—Chart ID). 


Provides interface for disk data management (BXWO00— 
Chart IF). 


Page of LY21-0504-3 
Issued 17 March 1976 
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Input: 
@ Intermediate text contained in $WORK2. 


@ Symbol tables contained in $WORK2. 


Output: 

@ XREF sort file. 

@ Assembler — common parameters 
1. XRPIMG — print image area is blanked. 
2. |XRBLKC — count of blocks in sort file. 


3. XRPASC — count of passes required to merge the 
file. 


4. XRFERST — relative sector address of first block 
in file. 


5. XRLAST — relative sector address of last block 
in file. 


6. XRAVL1 — sort file availability table is initialized. 


® Listing header area in $ASPRC is initialized for cross 
reference listing. 


Exits: 


@ Normal — Phase 41 is fetched. 


@ Error — control is returned to scheduler via EOJ tran- 
sient. (For Model 10 Disk System, see /BM System/3 
Disk Systems System Control Program Logic Manual, 
SY 21-0502; for Model 12, see /BM System/3 Model 12 
System Control Program Logic Manual, SY21-0046; for 
Model 15, see /BM System/3 Model 15 Scheduler Logic 
Manual, SY21-0035.) 
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$ASBX1 
CICK A 3 sok a ak ak ak ak ak 
* * 
RESIDENT SUPERVISOR : Bais : 
Ae a ake ae ake a ae ie ak a i ae ak oe 
S$ASROT 
Communications Vector | Enero Lense eLenuewe 
* * 
Assembler Common OME ake SH * 
Disk Data Management ‘ ‘ 
ae ea ae ae a fe a oie a a oe fe ake ae ake ake 
$ASPRC (see Section 5 for description) 
V KA/OL/AL 
Be OK ae aK a LB fc 2 of 2k i ak ake ae ae of 
*CAMOO1 x 
; * * READ FIRST * 
Printer Data Management ‘ Pepe * 
We he ae ate a a af aK a he ok ok a ak oe ae ak 
PHASE 40 CODE (Module $ASBX0O) , 
rer Tre errr cre 
nee INITIALIZE XREFS 
* X * 
BXPO000 *FILE FOR OUTPUTS 
BXLO00 eee ean pie 
em * 
BXMO0O 
BXS000 
BXWo000 : 
Constant Block AEREREQ ERR REARS 
. * * 
Working Storage *ZERO RECORD AND* 
* BLOCK COUNTS # 
* * 
We Re a ae he oe af a aka ake a ae ak ae af at 
DISK BUFFERS 
% 
Model 10 only Ree eee errr 
* * 
| * BLOCK POINTER # 
Figure 12. Phase 40 Main Storage Map : 
* * 
ee ake ae a he aie ae a ae ai a a a a ake 3 


Fe eG 3 ake a ak ak ake akc ae ok 
* x 
* EXIT x 
* * 

Je Ra ke ak ake a a ake ake ie akc akc ae ak 

TO: BXPOOO 


Chart IA. Initialization Routine (BX1!000) 
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BXP000 
wet a A) ete tek a tek k 


* * 
* ENTRY * 
* * 
$e tok ok kk 


*eae 
* * 
* Bl *-> 
* * 


* RK 

BXPO010 V_ IF/O1/A1L 
RAB) KEE EK 
*BXWOO0O * 


Kew ewe wows oe ow eww * 


* GET WORK FILE * 
* RECORD * 


KKKKKK KKK KKK HK HK * * 
* C3 * 
* * 
HK HK 
= Vv 
o*, BxXP 020 o*. 
Cl *, *, 
o* *,. mek & * Ke 
* TERM *. NO * * e* CONTROL *. NO 
*. RECORD ok=—-->* C3 * *. RECORD os 
*. .* * * *. 
*. * ike *, o* 
P *. o® *. o* 
* YES * YES ae 
* * a she he 3k 
* Bl * * * 
* * 4 toms 
eR OK, * 
Vv Vv te 
o*. o*. BXxP030 F/OL/AL 
Ol x, 03 *, KKK OD G Kw He ek HH KH 
o* * o* *. *Bxwo00d * 
e e NO o* LAST me YES Ke ee ee * 
*. SYMBOLIC o tems *. INTERMED. *¥--<-- * GET SYMBOL * 
e TERM ° *.TEXT RCD .* * RECORD * 
*. .* *. .* * * 
*, Vv x. ot Vv fA oa a tok ie 
* YES eK * NO $C 
* * * * 
* Bl * * 04 * 
* * * * 
eEKE eK KK 
y ¥ 
sek KORE ok tok i ako eo ai i aE Bei a ok steak ake ek ok E4 *, 
* * * * .* *, sR KE 5 soo tok & 
* ADO STMT. NOW * *SAVE STATEMENT * o* LAST *. YES * * 
* TO TERM FIELD * * NUMBER * *. SYMBOL o Kamm nm De EXIT * 
* * * * *. o*® * * 
* * * * *, o* He ee teak ae eK ek I Hk 
me He he a teak sak a a KK a kK meh He Ke ae ek KK KK KK *. * 
* NO TO: BLX000 
Vv 
I0/01/A1 o*, 
KEK KK | HK KK KKH F3 x, WAH AK EG KK KK HK KK KH 
*BXM000 * ; ; * * 
aman nnn ~~ ; NAME “*, NO * SET TYPE BYTE * 
*STORE RECORD IN* *, RECORD conan * “FOR SYMBOL * 
* BUILD AREA * oo . l * RECORD * 
2 He a aie ae ee a he ee A HK x, * Vv We ae eH ee a he a he he a aK 
* YE tC 
wk RH * * 
* * * Bl * 
->* Bl * * 
ke ak 
* kkk Vv 
V_IF/OL/AL o*, 
KAKKKG FI KAKKKEKKKKE HK G4 *, 
*BXWO00 * o* * 
Ke ne mw me nw eee * e NO 
* *  . EXTRN e Komen 
*GET NAME RECORD* *, o* 
* * *, o* 
Oe he ae ae ee he He ae he a ae oh aK aK . ee. 9 * 
* YES 
V ID/O1L/AL Vv 
MH He HM Fhe ok KK WH KH KHG KKK KK KH 
* BXM000 * * * 
kaa - we --~--- = * * SET LENGTH TO * 
* MOVE NAME * * ONE * 
*RECORD TO BUILO* * * 
* AREA * * * 
em eo ke oe ak ak ek KK KK Wee He ae He ae ae oh ae a a a KE 
ek Hk 
* * en 
->* Bl * 
eK Kk 
ID/O1L/AL 
RKKKK IG KKK KKK HK 
*BXMO00 i 


* MOVE SYMBOL * 
*RECORD TO BUILD* 
* AREA * 


he 2h Ke he He ae ae hee a ie a ak a ae 


Chart 1B. Cross Reference Build Routine (BXPOOOQO) 
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BXLOO0O0 
REREA LHEEEEE HEE 


* 
* ENTRY * 
* * 
HERS BEEK EEE DEE 


Bl *. 


* *. 
o*° CURRENT “*. YES 
*. BUILD AREA .*#---->* B3 * 
*, EMPTY .* * * 


e 
® e 


*. o* 


* 


* 
* 
*x 
* 
* 
* 
* 


ae he ate he he a a a eK & 


VI 
#44 RSD | KE 


*BxXS000 
ee * 


* * 
* SORT BLOCK * 
RKERKKKKEKAKAKEEE ERK HK 


conse Lenneeneees 

* 
padanaa sy BLOCK* 
: COUNT od 


* * 
He ek HK He He KK 


annul Unieeenae 
*SET CHAIN AREA * 
*OF BLOCK TO NOT*® 
*uSeEO INOICATORS*® 
hk et ee ae 


V_IF/O1/A4% 
HERKKG 1 HEE EEE EEE 


*BXW100 * 


Oe me eee ee ee 


* PUT OUT LAST * 
: BLOCK Z 
PEREKHEEREE EE EBRE HE 


wake 
* B3 * 
* * 
a 
Vv 
_o¥e 
B3 ° 
NO *,. YES 
*, BLOCKS o tana ----- 
*«e, “ e 
*. o* 
| NO 
BXLO50 V I1F/01/A3 
$A RC 3 HK EE 
*BXWO50 : 


* WAIT ON LAST * 
. DISK WRITE bs 


WERKE KK HK KK KKH KH 


BXL O50 V 
HERE EDZ ERE EEE EEE 


* * 
*SAVE FILE START* 
* & STRING SIZE * 
* * 
* * 
EEK ERE EEE EE 


eebauccanesaueces 
* 

* COMPUTE PASS 
: COUNT 


ee ee 


* 
Me Me ae a eK eae a a 


BXLO70 V 
REREKEZ RARER EH 
* * 


* INITIALIZE * 
*PRINT AREA AND * 
* HEADER * 


* * 
REREKREARKEKEKKEKAS 


V 
RERKKG 3 EE EK EE EE 
* 


INITIALT ZE 
ASMCOM FOR 
PHASE 41 


REKKEEKKKEKKKEKE SE 


+t tt 
HERD DH 


eke 

* * 
* HZ #-> 
* 


* 
REE 


V 
MMM KE 3 ee he eH HE EK 


*EXITs PHASE 
SERRE BEEEE 


Chart IC. Termination Routine (BXLO00) 
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KKKKKYERRARKKKEKKE 
* 


* 

* SET NOXREF * 
>* 
* 


INOICATOR tear 


* * 
HH HH Ke HH KKH HK 


* 


V 
ee RH 


* 


* H3 * 


* 


*e KK 


* 


BXMO000 
POSTAL ERLE SS SEE. 


* 

* ENTRY * 
* * 
REKKEEKKEKEE SK ERE 


Vv 
#¢ EB 1 SAREE E ERE 
* * 
* * 
*MOVE IN RECORD * 


* * 
SKK KE EAE EK E KEES 


: V 
: He AHS | ASR EEE ROE 
* 


* 
: COUNT RECORD 


ee eo 


* 
SEEKER AERKEEKKEEK | 


V_IE/OL/AL 
sarcoma ee 
*BXS000 * 


ctw ananrooaman e 


* * 
SSORT THE BLOCK : 
SHREK ARREEEE EEK E 


V_IF/O1/A4 
KERKE ] RERKRKE EERE 
* 


*B XW100 


ce ee ce eee ee ee oe em we * 


* * 
SWRITE THE BLOCKS 
se ae ek OK ok 


#88846 LAE 
* * 
*RESET POINTER &* 
* COUNT * 


* * 
MA HM HM He ee He he hk he 


eed 


BXM090 
PESSU LESSEE SEES 
* RETURN * 
* * 
So tok ek dak toto tok 


Chart 1D. Build Area Move and Output Routine (BXMO000) 
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BXS000 
SRenA Le teeters 


* 

* ENTRY * 

* * 
RHEE EKER AEE EK 


#4 4B LEE EEE 
* * 
*MOVE IN RECORD * 
* COUNT * 


* * 
KEK ENE EH HH RH HK HK HK 


Vv 
o*, 
Cl *. 
* 


e *. 
o* COUNT *. YES 
*. LESS THAN Pama 


e 
#. .* 


BXSO10 V 
SOCOeD Leta eer ase 


* * 
*SORT THE BLOCK * 
* * 
* * 
PERE KE REE EEE EK 


, Cy 


Vv 
HERE ] EERE SE EH 
* * 
* RETURN * 
* * 
+e KE KEE ERE OK 


Chart IE. Cross Reference File Block Sort Routine (BXS000) 
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BXw000 B XW050 BxXW100 
We RO Atoka kek ake k AIK A 3 tok ak tak ae kok HORI AG seat ae a ak a ae a ae 
* * * * * * 
* ENTRY * * ENTRY * * ENTRY * 
* * * * * * 
He aR a Heke eK ek ak BER Rk dogo akc a ae AR ak a ai ake ak ai ae ak ak a ak 
V 
V V eX 
ek eke ak BY) ok ae a ae ak ake ok ok ee ae eB ae ae ae ak ak ae ak ak ak B4 *, 
* * * * .* A 
* * * * o* FIRST *. YES 
*SET UP LINKAGE * *SET UP LINKAGE * *. ENTRY oko 
* * * * *, o* 
* * * * *, é | 
Be oi ok ik se ak okie ae FERRO ROR SRR Fg te ok ak *, V 
* NO HK Hk 
* * 
* EG * 
* * 
KH 
o*. KA/O1/A1 V KA/OL/AL V KA/OL/AL 
Cl *, Me HK CDK RR a a ea IK CC 2 ak a ak ak a ak ak a ak ak FORK 4 sok a a a a a ak ak 
o* *, *CAMOO]L * *CAMOOL] * *CAMOOL * 
e* READ A e YES a a al * Ke nw eee nner ere astra eaadestr ag ed pened acs * 
*. BLOCK _IN sess seaas= * * * WAIT ON LAST * * WATT ON LAST * 
Fs PROCESS 2% ‘ WATT ON READ : * WR WRI * 
He 6 ¥ BR FOR Ra BOR ka a te ak ak aia a SR Ra CR i i i dt Xe aka a BORO RIOR ok kk i ak ak ak a ak 
* NO 
' 
Ror cen nw ene oa] 
V V V 
Vv eX, o%e aXe 
esi tek 0) etek 2 i ok ak ke ok D2 x, D3 Ke D4 *, 
* * * *, * x, .* Ke Me ake a KD) 5 ake teak ae ae a ok a 
*GET RECORD FROM* NO .* *, * *. YES o* *. YES *EOJ * 
* BLOCK * swan %, PERMANENT .* *. PERMANENT ,%--~-- *. PERMANENT  .*=------- WE enema eee cee * 
t *,. ERROR .* *. ERROR .* *. ERROR  . A EXIT 
* * *, o* *, o* x * | Aa loi og i io sok dak 
Bok eR RoR Raa Rk cake sake *, 4 *, V x, at 
* YES * NO weak kk *x NO we ak a 
wR Ok * Fe a * * 
* * 05 * * D5 * 
—->* FG x * * * EG *-> * * 
KR Hk We ea ok 
V so a 
o*. V KA/OL/SAL 
El *, V gO EG oko kook ick tok 
.* x, Rem E 27 Rt ok ek *CAMOOL * 
o* BLOCK *. NO *EQSJ * : cease mtricgaresiaa pee aaerae alo * 
*. EMPTY ok -- 4 s eniantastmanesiphenbadteteeneted * * WRITE THIS * 
*.? o* | * EXIT * * BLOCK * 
*, * ga aka ak ok * * 
Ree x V RR RR gO a a ke ae ok 
* YES we 
* * ie 
* F4 * * * 
* * * F4 *-> 
HR 
eR 
V KA/OL/AL 
BRR ROR E [kok kkk ok shea Vv 
*C AMOO1 * We FH EG oe ak ak a oe ak ak a ok 
Roo ee * * * 
* * * RETURN * 
* READ A BLOCK * * * 
* * SE a a koto tok kak ak 
Se lok gaia doko oto ak 
eek 
* * 
—>* F4 * 
a kaa 


Chart IF. Disk Data Management Interface (BXWO00) 
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MODULE $ASSX0 — MERGE AND LIST CROSS 
REFERENCE (PHASE 41) 


Main Storage Map: Figure 13. 


Entry Point: $ASSX1 — entered from Phase 40 via FETCH. 
(For Model 10 Disk System, see /BM System/3 Disk Systems 
System Control Program Logic Manual, SY 21-0502; for 
Model 12, see /BM System/3 Model 12 System Control Pro- 
gram Logic Manual, SY21-0046; for Model 15, see /BM 
System/3 Model 15 Supervisor and lOS Logic Manual, 
SY21-0033.) 


Charts: JA-JE. 


RESIDENT SUPERVISOR 


$ASROT 


Communications Vector 
Assembler Common 
Disk Data Management 


$ASPRC (see Section 5 for description) 
Printer Data Management * 


PHASE 41 CODE (Module $ASSXO) 


$X1000 Routine 
SXS000 Routine 
S$XO0000 Routine 
SXLOOO Routine 
SXTO0O0 Routine 
SXW000 Routine 
SXGO000 Routine 
SXPO000 Routine 
SXVO000 Routine 
SXROO0O0 Routine 
Constant Block 
Working Storage 


DISK BUFFERS 


* Model 10 only 


Figure 13. Phase 41 Main Storage Map 
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Functions: 


Completes Phase 41 initialization (SX!000—Chart JA). 


Controls the merging of the XREF sort file (SXSOOO— 
Chart JB). 


Controls the moving of records from the input areas to 
the output area (SXOO00—Chart JC). 


Controls the writing and chaining together of output 
strings and the reading of chained input strings 
(SXO000—Chart JC). 


Creates the XREF listing at the last pass of the sort file 
merge (SXLOOO—Chart JD). 


Closes out Phase 41 processing (SX TOOO—Chart JC). 


Provides interface for reading to and writing from the 
sort file (SXWOO00—Chart JE). 


Prints the printer-listing header and counts pages 
(SXGO00—no chart). 


Controls size of page on printed output (SXPOO—no 
chart). 


Converts binary numbers to decimal (SXVO00O—no chart). © 


Provides print module interface for print operations 
(SX ROOO—no chart, functionally the same as PEROOO). 


Input: 


@ XREF records in work $WORK2 file. 


@ Assembler Common parameters 


A XRPIMG — print image area all blanks. 
2. XRBLKC — count of blocks in file. 
3. XRPASR — count of passes required to merge file. 


4, XRFRST — relative sector address of first block 
in file. 


5, XRLAST — relative sector address of last block in 
file. 


@ Listing header in $ASPRC module. 
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Output: $ASSX1 
eRe AS Fe a a ek 
* 
oo. : ENTRY : 
@ Cross reference listing. ere Tere ere ee 
@ Error summary statements of error counts. 
SXI 000 Vv 
ae 3h ae He Ke BD he ee a he af he 2 3h ak 
* * 


* SET_UP x 
“., *COMMUNICATIONS * 
Exits: x * 


* * 
Hee He ae He ae Be He he ae he 3 He 3 ae ok 
@ Normal | 
\ . 
1. If object output exists, control is passed to Phase eee ts vo OH Cae 
SOLYNX of the overlay linkage editor. #2, REQUIRED | J#-----—- > EXIT ‘ 
or a eto? SXTOTO 
“* “YES ; 
2. If no object output exists, control is returned to 
‘ the scheduler via EOJ. (For Model 10 Disk System, 
. Vv 
see /BM System/3 Disk Systems System Control SA ED3 OR I 
Program Logic Manual, SY21-0502; for Model 12, : auteur BLOCK * 
" see /BM System/3 Model 12 System Control Pro- S panaaeeeeeeRe 
gram Logic Manual, SY21-0046; for Model 15, see 
IBM System/3 Model 15 Scheduler Logic Manual, 
SY21 -0035.) *4%HES sa ka 
So mipyengze § 
@ Error — EOJ. * : 
a he a ie ae ah ah oe a oko ok ook 
Constant Block: 
LMF 3 HERRARERES 
* PAST WRITE. 
@ All required for Phase 41 that are not stored in assembler * * 
common reside in this block. eee eens 
Working Storage: Gg Phe 
* EXIT : 
@ All required Phase 41 working storage not in ASMCOM mrT0: SXS000 


resides in this block. 
Chart JA. Initialization Routine (SX1000) 
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SxS000 
BORO A kk ek OK 
* * 
* ENTRY * 
* * 
SR OR sak ik ek kK 


She he a a ake he ake ae ak ok ake oe aK akc aie ae 


eGo LSE a Rte 
STRING 


*BLOCK & STRING 
% SIZE 


HH HH 


we a eo ea afc ak ae ak ake ak ak ake ak ak 


ORE Lao ak kt 
* * 
* DOUBLE STRING * 
* SIZE * 


* * 
He He ae ee a a ae he ak ae ak a ae 2 


SXS04 V. 
* TECLAN ESE SEE 


0 

x 

EAD BLOCK AT Ax 
TR TER * 
EA * 
* 
& 


Me ae i ee a oi ae 2K aK ae ae HHH 


V 
fe ORG Diao dete aoa ak 
* 


* 
*READ BLOCK AT B* 
*STRING POINTER * 
: INTO BIAREA : 


WA He Re ake a ai ai ae ok a a fe ae ak 


We oe eK a A DK Ae Fe a ea aK ae a ae 
* * 


* * 

* SET A SW — 
* * 

* * 

fe oe a of ee he ae a a i a ake ke a 

V 

MEK KCK BD ke A ae ae ake oh ke 3K a 

* * 

* * 

* ARCD TO LOW *<---- 
* * 

* 


* 
He he oe a he a ae 3 3 of a of of 2c 


we ee we ee wow ewe 


Chart JB. Merge Control Routine (SXSO00) 


* 
aa SET A & B SW 


SXS080 He 
.* "oe, 


* 
ARCD: BRCD 


V 
a RRB 3 tok iat dk tok 
* 


* 
x 
* 
x 
* * 
FOR RRR ROR Rak a akc a ak ak a ae ak 


* LOW = * 
*. HIGH VALUE 


Vv NO T 
aK 


CHA 
ok IRE 3 tok tok at kek 


R 
* * 
* 
* 
* PUT OUT A RCD + 
eT rrtr rt reer. tt 2 


----------> 


KK KRG ZK 


*SX0000 
Ke we ee eee eon x 


* * 
. PUT OUT B RCD : 
FR ROR ROR RR RR ICR Ka ak a 


ee oe ok 
x x 

* J3 ken 
* * 

He Kk 


V 
eR RC a 3 ca ake a ak a ae ak ok 
* * 
*READ BLOCK INTO* 
* ATAREA . 


* * 
FEI IG IR GK Kak ak 


Vv 
SR RRR 3 kk a a a aR a ok ak 
* * 
*SET LST RECORD * 
* OF BIAREA TO * 
* HIGH VALUE * 


* * 
eR He ee he ae he oe ok oe 2 aK ke ake ok 


RK x 
x x 
->* Jl * 
x * 
ek ote 
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x. > * 
eX === >* 
* 


ae ee oe eA A 2 2 ae ae ae a i ake aie ak 
* 


SET B SW 


Ht 3 HE Ht 


x 
RR IRC a ak ak ae ak ae oe ak ake ae a ak 


V 
ak a OR BG tokok dei a aioe ak ak 


BRCD TO LOW 


HH HH 
Ht He 3 He 


Peete Sea gen ee 


T *. 
S 


RoR DG ak ak ak ak a ok ake ak ae 
* * 
* EXIT * 
* * 

BARR ke ak ai akc ak ak ak aka 

TO: SxTOO0O 


NO 


geass 


V 
He eae 2 ok 


* 
* 


* 


* 


* 


* 
* 


$x0000 
Madbheed 2} Sededeininieihihie™ 
* “ENTRY * 
* * 
i io ok doe 


Vv 
$x0030 o*. 
01 *. 


* *, 
OUTPUT *. 
AREA FULL gen 


*. .* 
*e 
* VES 


NO .*- 


mek, 


Vv 
SRRRKE 1 AKER E HE 
: * 


PUT AVL2 IN * 
SCHAIN ARE eo eg 


* * 
REERAKE KKK KEKE KKH K 


V JE/OL/A2 
PEEKHRE ]ERREEE BEE H 


*SXwW100 * 


Ree oe ee oe ee oo ee 


* * WRITE THE * # 
** BLOCK * * 


x * * & 
RHEE RH KKK HH KHEKK 


< 


fe EG |e ok oe 
* 


* SHIFT 
* AVATLABILITY 
* TABLE 


* 
EKKKKEKEKEKKKKKEKE K 


+H tH 


see} | See RE 
* * 
* RESET OUTPUT * 
: POINTER * 


* * 
WKEKRAKKKEKAEK KREK HK 


$x0040 Vv 
 dashaaiashaat OP Saatashstasteataatctstabed 


MOVE RCD TO 
OUTPUT AREA 


Pe ee 


* 
* 
* 
* 
KKK RH RE KK KK RK 


V 
RARERK | RERKE KERR 
* 


* 
* INCREMENT * 
SOUTPUT POINTER : 


* * 
REE KKK KKH OH HK 


JO/OL/A1 
Weak eK AD KK KK KK KK 
*SXL000 * 
Ro ew we we ow eee we eo XK 
--># LAST PASS * 
* ROUT INE * 
He ee He he He oh hee a ae ae 3 ak a 
ek HK 
* * 
* B2 *-> 
* * 
kK 
$X0055 V 
MH he HK BD he he eK Ke He KK 
* 


* 
*INCREMENT INPUT* 
* AREA POINTER : 


% 


* 
ME He he He he Hee He he a He he HK 3 i 


V 
o*, 
C2’ “*, 
o* 
-*” END OF 
*. INPUT AREA 


*#. NO 


Pe Toy 


**" VES 


$x0080 


Vv 
o *, 

D2. *. $4 ED 3 RK EE 

* 


-* *. * 

e* CHAINED *. NO * SET FIRST * 

*. TO ANOTHER .*-------->*RECORD TO HIGH * 
* * VALUE 


e o* * 
*, .* * * 
ae Sek oe te to oe a i 
*° YES 
ee 
* * 
->* H2 * 
* * 
ke 
V 
$O ORE 2 toe dt tok 
* 


* 
* Aree coe * 
* LOCATION AT * 
SCHAIN oe ADOS* 


sa ekskaoewkesaeue 


dedeagoe Laedsenne 
* * 
* ADD C/S OF_ * 
* BLOCK READ TO * 
* AVLT * 
RKAKAKKAKEKKHK KE KKKK 
KKK 

* * 

* H2 *-> 

* * 

Kekkk 


$Xx0100 


V 
HHA DHE HE HH 


x 

* RESET INPUT 
* POINTER 
* 
* 


tH HHH 


KKKK KKK KK KKH HK RAK 
* KKK 
* 


* 
* J2 *-> 
* * 


V 
HRA QEEEREEE EK 
* 
* RETURN * 
* * 
HERE ARR RE KER 


STx000 


KKKKAG KKKKKKEKH 


* * 

* ENTRY * 

* * 
eR He he ee eK I Hk 


NO CHART 
eC B 4 eo tok tt tok 
#SXP000 : 
*PRINT THE LAST * 
* LINE * 


Chart JC. Merge Output Routine and Termination Routine (SXO000 and SXTOO0O) 
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RAKRAKKKKEKKKE KKK HK 
Vv 
o*, TO70 
C4” ow, ela CS tok to Om tk 
e* ROOM e *CLO SE : 
° FOR *, YES —«--_§«_— - Reem mene ener 
*. TRAILING e Koran ->* * CLOSE THE * * 
*. STMTS' .* * *SOURCE FILE* * 
*, .* * * x * 
*. o® He he He Hea He hee ke ea eK a 
* "NO kk 
* * 
* C5 * 
* * 
* HK & 
V_ NO CHART Vv 
KRAKKKOS KKK HK KH KK Stiace 
*SXR300 : *CLOSE : 
* GO TO A NEW * : * CLOSE THE * * 
* PAGE * * * PRINTER * * 
* * * * * * 
EKKKKKEAKKKKKKKKK SE Me Me Me Me Hehe He He he Hee He He he 
laminae iwate 
Vv o*, 
fet EG doko i f5 * 
* * *. 
* PREPARE ERROR * * * OBJECT *. NO 
*COUNT STATEMENT * oO OUTPUT PS Dateteates] 
* * “x, * 
MEM Me He Me eM he he he Me a eK he IK IK *, 9% 
* YES dadee 
* JS% 
* 
y ek 
V NO CHART o*e 
MRA K ES KH MK HH HK F5 *, 
* * e e 
ae * NO 
* *. ASSEMBLY Km mmm 
SPRINT THE LINE : meen nok gee { 
$I CR I a Vv 
*° YES KKK 
* 
* K5* 
* * 
He oe 2 
V 
o*, Vv 
G4 *, peuvent oe 
o* *. SSYSt OG 
o* SEQ CK *, NO Pe oe ete Mert ee ee ee 
*. REQUEST PS steete * * LOG ERROR * * 
*. o® x * HALT * * 
me, o* *« *& x * 
*, * Vv RKKKRKKKKKKKKKKKE 
* YES ad 
* C5 * 
* * 
KKH 
Vv 
Vv o*. 
RKKRKKHGKKKKEKEKEE H5 Xe. 
. * o* *. 
RE * o* * 
SEQUENCE | ERROR * *,. TERMINATE .*---— 
STATEMENT * *. e 
* *, o* 
REKKKKEKKKEKKKKKEK HE * o* 
Yes 
ke 
* J5 *=-> 
KKK 
V NO CHART 
KEKKKK rae as echlr Vv 
*SXP100 RAK 5 KE 
: SSeS SS SS2<s<4 55 : ee0d 7. 
PRINT THE LINE * * Iy * 
* * KKKKKKKHKKKAK KKK 
We Me He Me he he ae he ee HK HH ; 
eee KKK 
* * * * 
—->* C5 * * K5 ka-5 
* * * Ro | Kaew mene 
KKK wee KK 
Vv 
KKK YS KKK KKH 
eee ece +d 
sEXIT TO SOLYNX * 
RKKAKKHEKCKEKKKES 
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SXLO00 
RERKA LRERKE S HEE 


* * 
* ENTRY * 
* * 
RERKKAERE ES KEKE 
V 
o*, 
61 ° 
o* *, 
° LAST *. 
wnnk, DISK WRITE o* 
e PENDING .* 
*, o* 
*, ,* 
* YES 
V JE/O1/A3 ~ 
CREEK ] REARS EAE E 
*$xw050 : 
* WAIT ON LAST * 
: OISK WRITE * 
SEKEKEKEEERAKEEES 
* weer wee > 
Vv 
o*. 
Ol *. 
o* *, 
e TERM *. VES 
e RECORD o #e-----— : 
*, o* ERE 
*. o* *002* 
* NO * B]* 
* 
| . 
Vv 
SxXLO80 o*, o*. o*, 
El e, E2 *, FE? *, 
o* *, o® *. e*SYMBOL *. 
e* SYMBOL *. YES e* SYMBOL *. YES e*ON CURRENT *. YES 
° RECORD oe Beem nmn—-->*, =60RESOLVED oe Hoenn een = >*. PRINT e t---4 
° ® *e o* *, IMAGE . | 
*. o* *. e *. o% 
*, o® *. o* *, o* Vv 
* NO * NO kK 
eeEE * 
* G3 * 
->* Jl * * * 
* * tok tk 
Vv eRe Vv 
SXL140 o*. eX, 
Fl *, F3 *, 
* *, o* *e 
o* MULTIPLY *. YES o* *,. NO 
*. DEFINED o teen *. REFERENCES .#---- 
e NAME o* | *.0N IMAGE .* 
e o® *, a*® 
*. 9 Vv x, .* 
* week * YES kK 
* eee & * * 
* Jl * * J3 * 
* 63 *=-> * * 
eke ee EK 
Vv keke 
o*, $XL 090 V NO CHART 
6l *, EEKEKEG I EREKAE EEK 
o® *. *SXP000 * 
e* CURRENT *. NO Be mm ne enn ne * 
*. SYMBOL Pe tet * PRINT CaEReENT * 
° e* * IMAGE * 
*, Pe * * 
%, 9% Vv eo a ee a a i 
* YES eK 
* 
* Jl * 
* * 
eee 
Vv Vv 
REKKSY | SEREEKESESE KKK KH HARKER E 
* * * * 
* CONVERT * * CLEAR * 
DEF ING TION INTO* * ATTRIBUTES * 
SATTRIBUTE FIELOS pA FIELD 4 
BREE RRERKEEERER KEKE EEE RE RHR KE 
REX ke & 
* * * * 
* Jl *-> * J3 *=> 
* * * * 
eke kee 
SXL190 ae ae Zakeaneanes 
HEH) ] RRS SE EEE *CONVERT LENGTH * 
* * * AND VALUE TO #* 
* RETURN * * ATTRLG FIELD, * 
* * * SAVE SYMBOL ¥* 
Seah teh hk ee ek OE * * 
EEKRKKERKAEKREAEE 
Vv 
kK RK 3 dk 
* * 
* RESET _REF * 
* COUNT AND # 
: POINTER : 
sea Ro ok tee te ok ek seat 
ER 
* * 
—>* JL * 
KK 
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eee & 

*001* 

* Ol* 

x * 
me 


| 
4 


Bl *. 


% *, 
e* CURRENT *. NO 
eg SYMBOL ae 


* 
* 
* 
* 
Cae 


tw 
#O# 


e 
@ tom 4 


o*® 
*. POSSIBLE 
*. CHANG o® 
* * 


a a 
* YES 


v 
SOCASE LS ORS TE TERY 
* 


* 
* ADD * TO REF. 


HUE 


* 
REKKERE KE KK EK HE ERK 


SXLO060 Vv 
RKKKRKE] RRKEKKERE EK 
* 


* 
. MOVE IN REF. 


4HHRBED 


* 
REKERKERKKEK EERE HK 


v 
We HG | OE EH 
* * 


eae M PEC e aNO : 
ee ee 


R 
REKKAKKAAARAKAKEKEE HE 


V_NO_ CHART 
tok tok) | dee Ok ee 


*SXP000 * 


A a ED OD ee ase nd ee oe ct come eae TE 


* PRINT CURRENT * 
: IMAGE, RESET * 


RKAK KK KKK KEKE KKK & 


Vv 
KEK] RK KEE RH 
* 
* RETURN * 
* * 
ee RH Hak eR 


oe *. 
82. *. 
*SYMBOL *. 
e*0ON CURRENT *. 
==. e PRINT e 
*, IMAGE .* 
*e, * 
* YES 
KKK 
* C2 *-> 
KKK 
SXL030 V NO CHAR 
MM HC OK ee ie KK 
*SXP000 * 


* PRINT There * 
* IMAGE : 


RHEKKKKKKKKRE KEKE K 


T S$XL040 V 
Rea ICRC 3 te 
* 


* 
* ADD SYMBOL TO * 
-------- >* IMAGE * 


* * 
Me Re he he a ie he ee OK KK KK 


V 
#e RED RE EE 


* 
* * 
* ADD UNDEFINED * 
*SYMBOL MESSAGE * 
* * 

* 

* 


* 
RHERKKKKKEKKKAKKKKK 


V 
et RE 3 tok tok tok a 
* 


* 
*RESET REFERENCE 
*COUNT & POINTERS 


* * 
KKRKK KK KEK HK KH HO HK 


Mee Me ME SB shew she ak sea He ak HK 
* 


SAVE THIS 
SYMBOL 


HH EH 
HH HEH 


RHEKKHKAKKCAKKKKKKE & 
He 

* * 

‘->* Cl 

* * 
KKK 


Chart JD (Part 2 of 2). Last Pass Output Routine (SXLOOO) 
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SxXwW100 
RRAKA | HR KEE ERE 
* * 
* ENTRY * 
* % 
ERE KRE RK RE HEE KKK 


WH HAAG | Me ek ek a ke ek 
* * 


* * 
SSET UP LINKAGE : 


* * 
REKE KE KEKE KE EHH 


V_KA/OL/AL 
oe CAD eaeee ees s 


*CAMOO1 


oe we aH oe aD oD mw om eon K 
* WAIT ON LAST * 
: WRITE * 


REKKAKKARHEKEKEREKE 


-~--------> 


V KA/OI/AL 


PERE] EK EK ERE 
SCAMOOL * 


oa ao een even Sts oa an a 
* WRITE THIS * 
* BLOCK * 
RKEKKKKKKKKKK SE REKE 

RKKK 
* * 

* G1 #-> 
* * 
KKK 

v 

RAEKKG ] KRKKKKKEKEK 
* * 
* RETURN * 
* * 

KKKKEKKKEEKKREK 


SxXwO0O0O 


SXWO5SO 

RKRK ADK KKK HK KK KREKAZRKKKKKKKS 
* * * * 
* ENTRY * * ENTRY * 
i * * * 
EKKKKAKKKKKKEKKEK WRK HK He eh ek HK KKK 
KKEKKKBH 2EKKKKKKKKE KKKKKB A KKK KKK KKK K 
* * * * 


* * 
*SET UP LINKAGE * 
* * 


* * 
REKKEKAKKKKEKKKKES 


V KA/OL/ 
HRC 2 


*CAMOOL 
Keen ne nw nn * 


* * 
Scene WAIT SEOEES 
HE Ok EE 


o* e NO 
*. PERMANENT .*---- 
e ERROR .* 


*EOJ 
* 


* EXIT 
HEERERAREERER EEE 


Chart JE. Disk Data Management Interfaces (SXWO000) 


* * 
*SET UP LINKAGE * 
* * 


* * 
eM A a he he he ae KK ek kK 
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$CAM — COMPILER ACCESS METHOD 

© Entry Point: CAMOO1 — can be called from any module. 
Chart: KA. 
Functions: 


@ Retrieves up to 255 sectors at a time according to a 
binary relative sector number. 


@ Loads up to 255 sectors at a time according to a binary 
relative sector number. 
Input: $WORK, $WORK2, $SOURCE file. 


Output: $WORK, $WORK 2 file. 


Exit: Return to calling module. 
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CAMOO1 


EK A) RK EK KE 
* * 
: ENTER : 
we tea a i dk OK * KK 
* * 
* B2 * 
* * 
zig 
V 
V o*. o*. CAM014 
$k B ] tek ek ok oe B2 *, B4 *. RE RARBS eK RE KR 
* * o* Atl  *, o* *, * * 
* * e* SECTORS *. NO e* IS THIS *. NO * SET EOF * 
*INITIALIZE OTF * *, WITHIN o Fe eww ewer ee meee ana weer ere cere rene >*. A PUT OP —e-S=-5--= >* COMPLETION * 
* * *. LIMITS .* e o* * X*42° * 
* * *. o* *. * * 
ek i ok tak do tk a *, 4X ° 0% ek RR KE HO 
* YES * YES 
Vv 
V_ KA/01/64 CAMO5 e*. CAM0O70 V Vv 
HRA | KEK RE C2 *. AH EC 3 ERRKKCGREAAHRAEES RREKKC SEKKKKEEKEK 
*C AMWT * o* *. * * * SET ENO OF * * DECREMENT * 
$39 2-56------—-* e* IS THIS *. YES * INDICATE READ * * EXTENT * * NUMBER OF * 
* CALL WAIT * *, A GET ot =——+=--- >* IN 10B * * COMPLETION * * SECTORS * 
: SUBROUT INE . ne a . 34 ; x* 70° ed SREQUESTED BY 1 : 
tek tk tok tok ek teak to oe *, f tt RR tO EM a a OK RK RIK KE KE EE 
* N 
ee rE 
* * * * 
->* F3 * ->* El * 
Jase wee > * * 
V oe tk 
o*, CAMOE V CAMO8 
Dl *, HEKKKD QE KRERKKRKK REKKADY 3 EERE E 
o* *, * * *10S * 
e* IS THIS *. NO *INDICATE WRITE * , sneeian ann Saaetastaateaiatentaad 
e. A_GET OR oe #4 * IN 108 t<-S<— * * DISK IOS * # 
*. PUT OP .* * * * * READ OR * * 
e o* * * * * WRITE * * 
*, .* Vv He RRR ek a REREEEK EE EE KE ESS 
* YES kK 
KK * * 
* F3 * 
* El *-> * * 
kkk 
*eaK Vv 
CAMO11 V KA/01/G3 CAMO85 o¥e KA/01/64 
CKAAKE ] RHE KE KARE E3 *, REKKKE SG EKER EE 
*C AMCV * o* *, *CAMWT * 
eee an meer nnn ot e* IS WAIT *. YES t--——— <-See=<-s> * 
*CALC DISK a FOR* *,. SPECIFIED .#-------- >* CALL WAIT * 
* 1ST _SCTR * *. o* * SUBROUTINE * 
* ACCESSED * *. o* * * 
ea a cake ee a teak a ek ok *. * +e eK EK EK 
NO 
“eee 
* 
* F3 *=-> 
Vv ee 
o*. CAME44 CAMO9 
Fl *, EERE E QEEREKEKEEE 
* *x, * SET NO RECORD * HRERE ORSEE REESE 
e* ENO OF *. YES * FOUND * * RETURN TO * 
*. FILE oe tse=--——= >* COMPLETION * * CALLER * 
*. * A * X"44! * * * 
*. o* | * * EAEKEEKEREKKEKRE 
*. o* ERE ARE EEE RE 
* NO eee 
* * eK 
* F2 * * * 
* * ->* F3 * 
ce * * 
cs : 
V CAMCVT CAMWT 
HHH AG | HK EK 
* * HKG 3 EEE HRERGGRRERKEEEE 
* TOBNB= NUMBER * * ' * * * 
* OF SECTORS * * ENTER * * ENTER * 
* MINUS 1 * * * * * 
* * KE ES REE EE KEKAAKKAEREREKERE 
eA Re a 
y V Vv 
H1 *, He A HY 2 2 a EK KKH Yk ERE REG HE ER KK 
; *. * * * * *I0 * 
o* # OF *, YES * SET NUMBER OF * *CALCULATE OISK * ea SS= 525-252 =-= * 
*. SECTORS = 0 .*-------- >* SECTORS * * ADORESS eg * * OISK IOS * * 
*. e *REQUESTED TO 1 * * * * * WAIT * * 
*, * * * * * *x * 
*. .* Sek RR EO EEE KKK EKREREAREREE E KERARAKRAAEREREEKRE EE 
* NO 
x RK 
* * 
->* F2 * 
* 
aid KK y 
le caigetenseouee’ eer aT Teer rr TTT J4 *. RHA S RARE REE RE 
*C AMCVT * * * _ *. * * 
Be ee + - ---- * * COMPARE DISK * * *. YES * SET ABNORMAL * 
*COMPARE FOR END* *ADDRESS TO END * *,. PERMANENT  .#-------- >* COMPLETION * 
* OF FILE ; . OF FILE : *. ERROR .* * x*41' : 
sek OO tok ok OR ERRKRRREE RAE *, ae ee KE EE 
* 
N Ke 
* * 
Vv ->* F3 * 
kek * * 
* * KKK: 
* B2 * 
* * Vv v 
* ke KKERK A RREKKE EEE TEPPKGSSRSS SES 
* * * 
‘ RETURN TO NSI : ba RETURN TO NSI : 
we EE EK EH Hee ae ak a ee 


Chart KA. Compiler Access Method ($CAMO001) 
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Section 4. Directory 


This section contains a quick-reference table (Figure 14) 
that may be used in finding phases of the assembler on 
microfiche. The routine names are indexed on the micro- 
fiche records. 

The table consists of the following: 

@ Module name 

@ Descriptive name 

@ Entry Point 


@ Routines within each phase 


@ Synopsis of the functional description 


FUNCTIONALLY 
MODULE DESCRIPTIVE IDENTICAL ROU- 


NAME NAME ROUTINES CHART TINE, CHART SYNOPSIS 


$ASINO ASSEMBLER $ASIN1 INIOOO Performs assembler and Phase 10 
(Phase 05) INITIALIZATION INCOOO initialization. Processes OPTIONS, 
| INLOOO HEADERS, and input format 
INSOOO (ICTL) control cards. 
INVOOO 
INWOO00 


$ASCMO COMPRESSION $ASCM1 CM1t000 Processes all the source state- 
(Phase 10) CMPOO0O ments after the control cards. 
CMNOOO Builds the intermediate text 
CMU000 file and decodes and tests the 
CMLOOO source statements. 
CMOO00 
CMCO00 
CMSO000 INSOOO, AC 
CMVO0O0O0 
CMYO00 
CM X000 
CMROOO 
CMKOOO 
CMDOOO 
CMAOO00 
CMWO000 


Figure 14 (Part 1 of 3). Assembler Directory 
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FUNCTIONALLY 
ENTRY 


IDENTICAL ROU- 
POINT ROUTINES CHART | TINE, CHART SYNOPSIS 


MODULE 
NAME 


DESCRIPTIVE 
NAME 


SYMBOL 
PROCESSING 


$ASSBO 
(Phase 20) 


$ASSB1 SBI000 
SBPO0O 
SBLOOO 
SBMO00 
SBDOO0O 
SBOO000 
SBS000 
SBEOOO 
SBCO0O 
SBVO0O 
SB X000 
SBYOO0O 
SBROOO 
SBWOOO0 


Assigns the location counter 
values and builds the symbol 
table. 


$ASSFO SYMBOL TABLE $ASSF1 SFPOOO Tests the intermediate text 

(Phase 21) OVERFLOW SFTOOO from the statement follow- 
SFNOOO ing the overflow to the end 
SFSOOO none SBROOO, Cl of the text for symbols that 
SFWOOO DD have been previously defined. 


Previously defined symbols 
are marked. Resolves all 
references to symbols that 
are defined in the present 
symbol table. Resolved 
symbols are marked. 


$ASSSO SYMBOL $ASSS1 SS1000 Assigns the symbol value 


(Phase 22) SUBSTITUTION SSP000 and attribute from the last 
SSLOOO (or only) symbol table to 
SSTOOO SFTOOO, DB ‘that symbol in the inter- 
SSEO00 ‘mediate text Term records. 
SSU000 Builds an ESL table for 
SSSO00 SBROOO, Cl module name and EXTRN 
SSWO000 and ENTRY statements. 


$ASPEO ESL OUTPUT $SASPE1 PEI000 Prints the OPTIONS 

(Phase 29) PEOOOO and HEADERS records 
PEPOOO and the options selected. 
PESOOO Punches absolute loader if 
PELOOO DECK and NOREL are 
PEGOOO specified. Sorts and prints 
PEWOOO the ESL listing if LIST is 
PEROOO specified. Initializes Phase 

iPEX000 30. 


$ASPSO SOURCE/OBJECT $ASPS1 PS!000 Generates object code for 
(Phase 30) OUTPUT PSCOOO machine instructions and 
PSTOOO DCs. Puts out object code. 
PSKOOO Builds printer image. Prints 
PSHOOO source statements and ob- 
PS X000 ject code generated. Per- 
PSEOOO SBVOO00, CG forms assembly time opera- 
PSYOOO tions requested by assembler 
~ PS§Z000. statements. 
PSPOOO 
PSGOO0O 
PSMOOO 
PSLNK1** 
PSLNK2** 
PSROOO PEROOO, F! 


PSWOO00 
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FUNCTIONALLY 
MODULE DESCRIPTIVE ENTRY IDENTICAL ROU- 
NAME NAME POINT ROUTINES CHART TINE, CHART 
$ASOV1 * MACHINE IN- PSQ000 PSQ000* * none 
(Phase 30 - STRUCTION PRO- PSSO000 GH 
overlay 1) CESSOR AND PSBOOO Gl 
GROUP 1 
ASSEMBLER 
OPERATION 
PROCESSOR 
$ASOV2 * GROUP 2 PSA000 PSA000 GJ 
(Phase 30 - ASSEMBLER 
overlay 2) OPERATION 
: PROCESSOR 
$ASPDO PRINT $ASPD1 PDMOOO HA 
(Phase 35) DIAGNOSTICS PDLOOO HB 
PDCOOO HC 
PDGOOO PEGOOO, FF 
PDPOOO 
PDVOOO 
PDROOO PEROOO, Fl 
PDWO000 
$ASBXO BUILD XREF $ASBX1 BX1000 
(Phase 40) FILE BXPOOO IB 
BXLOOO IC 
BXMOO0O ID 
BXS000 IE 
BXWO000 IF 


$ASSXO 
(Phase 41) 


MERGE AND 
LIST XREF 


$ASSX1 SX1000 
SXS000 
SX0000 
SXLO00 
SXTO00 
SXWO000 
SXG000 
SXPO00 
SXVO000 
SXROO0, 


PEROOO, Fl 


: nae 


$CAM COMPILER ACCESS 


METHOD 


CAMOO1 


* On Model 12 and Model 15, these routines are part of $ASPSO. 
** On Model 10 only; not present for Model 12 and Model 15. 
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SYNOPSIS 


Processes machine instruc- 
tions and Group 1 Assem- 
bler instructions. 


Processes Group 2 Assembler 
instructions. 


Reads the Error records 
and prints diagnostic 

messages. Prints the error 
summary statements. 


Reads the work file and 
creates the cross reference 
sort file. Initializes work- 
ing storage, print area, and 
listing header for Phase 41. 


Merges the XREF sort file. 
Generates the XREF list- 
ing. Prints the error sum- 
mary statements. Fetches 
Overlay Linkage Editor if 
object output is required. 


Interface to Disk IOS to 
read or write blocks of one 
Or more sectors. 
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Section 5. Data Area Formats 


All data areas used by more than one phase of the Assembler 
are included in this section: *Communications Vector (COMVEC) 


Contains the Transfer Vector 


1. $ASROT — Assembler Communications Module. Pro- 
vides for interphase communication through a table Santiinean padres table tor Oihentabicsiaane 
of indirect linkages, table pointers, and interphase module: 


storage areas (see Figure 15). 
Contains the DTFs and IOBs. 


, . DTFS and |OBS — Source file DTF and !OB. 
2. Communications Vector (COMVEC) — a part of DTEW and IOBW — Work file DTE and {OB. 


$S$ASROT. Contains the transfer vector and an address DTEO and 1OBO — Object file DTF and 10B. 

table for all other tables in the $ASROT module (see DTFE and IOBE — Extra work file DTF and IOB. 

Figure 16). 

x % 

3: Assembler Common (ASMCOM) — a part of $ASROT. pasembler CommonneMCOMy 20 UB yrs 
Used for interphase constants, working storage, and ArwWorlkiig storsae-aieacantsining datatields 
communication (see Figure 17). referenced throughout the assembly process. 


4, Assembler Common Interphase Parameter Usage 
Chart — shows which fields in ASMCOM are used by 


each phase (see Figure 18). Disk data management routine resides in $ASROT. 


Disk Data Management 


5. | $ASPRC Module — contains printer module interface, “See Figure 16 for detailed description of COMVEC. 
printer buffer, and listing header (see Figure 19). 


**See Figure 17 for detailed description of ASMCOM. 


6. Symbol Table — a table containing symbols found in 
the source program (see Figures 20 and 21). Figure 15. $ASROT — Assembler Communications Module 


7. Work File (SWORK2) — a scratch file on disk used for 
intermediate storage throughout the assembly process 
(see Figures 22 and 23). 
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MODEL 10 MODEL 12 and MODEL 15 


BYTES (310 total) Hexadecimal BYTES (532 total) Hexadecimal 
From To Displacement Contents From To Displacement 


Contents 


COMVEC Entry COMVEC Entry 
at 00 at 00 
05 Current module name. 00 Current module name. 
07 Displacement from 02 Displacement from 
COMVEC to ASMCOM. COMVEC to ASMCOM. 


TRANSFER VECTOR 

3 6 Transfer to CAM. 
TRANSFER VECTOR 10 Transfer to SYSLST 
8 11 Transfer to CAM. or SYSPRT. 
12 15 Transfer to printer mod- 

ule. 

ADDRESS TABLE 

11 12 CAM transfer address. 
ADDRESS TABLE 13 14 SYSLST or SYSPRT 
16 17 CAM transfer address. routine address. 


18 19 Printer data management 15 16 SYSLST or SYSPRT 


transfer address. parameter list address. 


20 21 Printer DTF address. 17 18 Header area start address. 
22 23 Header area start address. 19 20 Work DTF address. 


24 25 $ASROT module end 21 22 Source DTF address. 
address +1. 23 24 Object DTF address. 
25 26 Extra work DTF address. 


DTFs and IOBs 
26 74 Source file (6SOURCE) DTFs and |OBs . 
DTF. 27 121 Work file (GSWORK2) DTF 
75 96 Source file (SSOURCE) and extension. 
1OB. 151 Work file (SWORK2) IOB. 
97 Work file $WORK2 DTF. 246 Source file (GSSOURCE) 
Work file $WORK2 JOB. DTF and extension. 
Object file $WORK DTF. 276 Source file (SSOURCE) 
Object file $WORK IOB. 1OB. 
Extra work file DTF. 371 Object file (SWORK) 
Extra work file 1OB. DTF and extension. 
401 Object file (SWORK) IOB. 
496 Extra work file DTF and < 
extension. 
526 Extra work file 1OB. 


Figure 16. Communications Vector (COMVEC) 
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ASSEMBLER COMMON (ASMCOM) (phases 05 and 10) 


Hexadecimal Displacement 


Field 


Length 


Model 10 


Models 
12 and 15 


Contents 


COMVDP 2 00 00 Communications vector displacement 
10. 2 02 02 Binary zero constant 
11 2 04 04 Binary one constant 
12 2 06 06 Binary two constant 
OPTONS 1 07 07 Indicates options selected 

. SEQCNT 2 09 09 Count of sequence errors in the source file (SSOURCE) 
INTRCD 10 13 13 Work file disk data management work area 
BGNCOL 2 15 15 Source record begin column 

, OPTCNT 1 16 16 Count of OPTIONS records 
MODULE 6 1C 1C Module name 
TITLEN 6 22 22 Title name 
ESLCNT 1 23 23 Count of ESL records 
CATGVL 1 24 24 Module category level 
COML4V 2 26 26 EXTRN subtype 4 common length 
COML5V 2 28 28 EXTRN subtype 5 common length 
SYTBSZ * 1 — 29 Symbol table size in sectors 
NAMLNG 2 2A 2B Name field length 
OPTCOL 2 2C 2D Right-most column number of operation code 
OPTLNG 2 2E 2F Operation code length 
OPDCOL 2 30 31 Left-most column number of operand field 
ORDLNG 2 32 33 Operand field length 
OPDEND 2 34 35 Right-most column number of operand field 
PRECOL 2 36 37 Pointer to current source column 
OPFTEN 3 39 3A Operand format table end 
NOFOPD 1 3A 3B Number of operands 
EPOSEN 12 46 47 Operand element position table 
NOFELE 1 47 48 Number of elements in operand 
INTEND 10 51 52 Control record build area 
NAMEND 10 5B 5C Name record build area 
TRMEND 10 65 66 Term record build area 
ERREND 10 6F 70 Error record build area 
SOURFD 97 DO D1 Source record input area 
LASTSQ 8 D8 D9 Last source sequence field 
CTLSWS 1 D9 DA Control switches 
AAWORK 2 DB DC Work area A 
ABWORK 2 DD DE Work area B 
ACWORK 2 DF EO Work area C 
PACI 1 EO E1 Pseudo accumulator switches 
PAC 4 E4 E5 Pseudo accumulator one 
TPAC 4 E8 EQ Pseudo accumulator two 

‘ SWITCH1 1 E9 EA Temporary bit switches 
13 2 EB EC Binary three constant 
EXTCNT 1 EC ED EXTRN count 
ESLMAX * 1 — EE Maximum ESL record count 
ON ** 2 EE _ Print key word 
OFFS 3 F1 _ Print key word 
DATA ** 4 F5 — Print key word 
NODATA** 6 FB — Print key word 
ENDCOL 2 FD FO Source record end column 

_ | CMXBUF*** 5 ms F5 External buffer 
ASMCEN FF FF ASMCOM end 


*Model 12 and Model 15 only. 
**Model 10 only. 
***Model 15 using 5704-AS2 only. 
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ASMCOM is the same as in Phases 05 and 10 through COMLS5V for Model 10 or SYTBSZ for Model 15. 


LOCNTR 
LCRCHG 
LOCRSW 
SYMOVS 
NSTENT 
MAXSTE 
SYTBSA 
SYTBEA 
SYMCNT 
SYMIND 
SYMEND 
INTEND 
TRMEND 
ERREND 
AAWORK 
ABWORK 
ACWORK 
PACI 
PAC 
TPAC 
INTLCR 
MAXLCR 
EXPVTB 
EXPWRK 
MWORK 
SYMSAV 


. (not used) 


ASMCEN 


Field 


Length 


—_ — =_ = — 
anREWWARRANNNOOSCOOANNNNN=A=A WwW 


Field 
Length 


ASSEMBLER COMMON (ASMCOM) 
(Phases 20 and 21) 


Hexadecimal 
Displacement 


FF 


Contents 


Current location counter value 
Location counter increment 
Location counter switch 
Symbol table overflow switches 
Number of table entries 
Maximum number of entries 
Symbol table start address 
Symbol! table end address 
Current symbol count 

Symbol table indicators 
Symbol entry build/search area 
Control record save area 

Term record save area 

Error record build area 

Work area A 

Work area B 

Work area C 

Pseudo accumulator switches 
Pseudo accumulator one 
Pseudo accumulator two 

Initial location counter 
Maximum location counter 
Expression evaluation tables 
Expression evaluation work area 
Multiplication work area 
Symbol save area 


ASMCOM end 


ASSEMBLER COMMON (ASMCOM) 


(Phase 22) 


Hexadecimal 
Displacement 


Contents 


ASMCOM is the same as in Phases 20 and 21 through MAXLCR. 


ESLINC 
ESLPTR 
ESLREC 


. (not used) 


ASMCEN 


7B 
7D 
89 
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ESL record length constant 
Pointer to ESL table 
ESL record build area 


ASMCOM end 
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ASSEMBLER COMMON (ASMCOM) 
(Phase 29) 


Field Hexadecimal 
Length Displacement Contents 


ASCOM is the same as in Phases 05, 10, 20, 21 and 22 through ESLCNT. 


ESLINC 


ESLTBA 
ESLREC 


AAWORK 
ABWORK 
ACWORK 
PACI 

PAC 
TPAC 


. (not used) 
CMXBUF* 
ASMCEN 


ERRCNT 2 17 Count of source statements in error 
PAGCNT 1 18 Printer page size 

LINCNT 1 19 Printer line count 

LPSIZE 1 1A Printer column size 

LPCLSW 1 1B Print size switches 

INTEND 10 25 Control record area 

ERREND 11 30 Error Record area 

PRNTSW 1 31 Print control switches 
USWTCH 1 32 Temporary bit switches 
LDADDR 2 34 Object code load address 
DCWORK 3 37 DC Work area 

AAWORK_ 2 39 Work area A 

ABWORK 2 3B Work area B 

ACWORK 2 3D Work area C 

PACI 1 SE Pseudo accumulator switches 
PAC 4 42 Pseudo accumulator one 

TPAC 4 46 Pseudo accumulator two 
RELIND 1 47 Relocation and EXTRN switches 
OBJECT 8 4F Object code assembly area 
VALUE1 2 51 Base value for register one 
VALUE2 2 53 Base value for register two 
HEXOB4J 16 63 Hex object conversion area 
EXPVTB 44 SF Expression evaluation tables 
MWORK 4 93 Multiplication work area 
OBDADF 2 95 Duplication factor for DC code 
OBDAAD 2 97 Address of DC code 


BPP] YNNNN NN N 


| *Model 15 using 5704-AS2 only. 


Field 
Length 


ESL record increment 
Not used 

Address of ESL table 
ESL record save area 
Not used 

Work area A 

Work area B 

Work area C 

Pseudo accumulator switches 
Pseudo accumulator one 
Pseudo accumulator two 


External buffer size 
ASMCOM end 


ASSEMBLER COMMON (ASMCOM) 


ASMCOM is the same as in previous phases through BGNCOL. 
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Displacement 


Contents 
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ASSEMBLER COMMON (ASMCOM) 
(Phase 30 Cont.) 


Field Hexadecimal 


Length Displacement Contents 


OBDLTH 2 99 Object code length 
MOVELH (Model 10 Disk System) 2 9B Object code move length 
EXTNUM (Model 12 and Model 15) 2 9B Object code move length 
RELDSP 1 9C RLD value 
BYTAVL 2 9E Bytes left on object record . 
LOADSW (Model 10 Disk System only) 1 OF $ASOV1/$ASOV2 Load switch 
FX96LN 1 AO Fold column for 96 column printer 
F120LN 1 Al Fold column for 120 column printer , 
DCZERO 1 A2 Decimal zero 
SEOALP 3 A5 Sequence error code 
OPCDNO 1 A6 Operation code error constant 
OPNDNO 1 A7 Operand error constant 
2 AQ Binary eight 
2 AB Binary minus eight 
2 AD Binary sixteen 
1 AE Binary fifty seven 
1256 2 BO Binary two hundred fifty six 
QCDMAX 2 B2 Maximum MVX instruction Q-code value 
JPDEC3 2 B4 Jump instruction length 
HEXSAD 2 B6 Start address of Hex conversion 
HEXEAD 2 B8 End address of Hex conversion 
D1 1 B9 Decimal one 
TXTTXA 2 BB Object text address 
TXTRLA 2 BD Object RLD field address 
ASEMAD 2 BF Assembly area address 
SOURAD 2 C1 Source start address 
OBOADR 2 C3 Object input area address @ 
SRCADR 2 C5 Source input area address 
STMTNO 4 C9 Source statement number 
MINUS1 2 CB Binary minus one 
NAMEXN 2 CD EXTRN number 
OPADEC 2 CF Output area decrement 
OBJDEC 2 D1 Input area decrement 
PRTOAD 2 D3 Print area start address 
PRTOCA 2 D5 Print object field address 
ASEMSA 2 D7 Assembly area start address 
HEADRA 2 D9 Header area address 
PSEOID 2 DB PSEOOO address 
PSGOID 2 DD PSGOOO address 
PSHOID 2 DF PSHOOO address 
PSH7!ID 2 E1 PSH700 address 
PSKOID 2 E3 PSKOOO address 
PSMOID 2 E5 PSMOOO address Model 10 Disk System 
PSR2!1D 2 E7 PSR200 address 
PSW11D 2 E9 PSW100 address a 
PSXOID 2 EB PSX000 address 
PSYOID 2 ED PSYOOO address 
PSZOID 2 EF PSZO000 address 
é FO-FF Not used 
MOVELH 2 DB Object code move length 
RELOPD 1 DC Operand relocation indicators 
EXTNO1 1 DD EXTRN number for operand 1 \ (Model 12 and 
EXTNO2 1 DE EXTRN number for operand 2 { Model 15) 
DF-FF Not used 
ASMCEN FF ASMCOM end 
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ASSEMBLER COMMON (ASMCOM) 
(Phase 35) 


Field Hexadecimal 
Length Displacement Contents 


ASMCONM is the same as in Phase 30 through LPCLSW. 


1D Work area A 

1F Work area B 

21 Work area C 

22 : Pseudo accumulator switches 
26 Pseudo accumulator one 

2A Pseudo accumulator two 

2C Error number within error table 
2D Error number increment per byte 
2E Error number increment per bit 
30 Address of diagnostic field 

90 Print image field 


AAWORK 
ABWORK 
ACWORK 
PACI 
PAC 
TPAC 
ERRNUM 
ERNBIN 
ERNOIN 
ADIAGP 
PRNIEN 


On = = YO BA BP | HY NM DN 


se) 


. (Not Used) 


ASMCEN , ASMCOM end 


ASSEMBLER COMMON (ASMCOM) 
(Phases 40 and 41) 


Field Hexadecimal 
Length Displacement Contents 


ASMCOM is the same as in Phases 30 and 35 through LPCLSW. 


XRATAB 27 “A” merge string table 

XRBTAB 33 *““B”’ merge string table 

XRAVLT 3B Cross-reference file availability table 
XRPASR 3D Merge passes to last pass 

XRPASC oF Current pass count 

XRFERST 41 C/S address of 1st XREF file block 
XRLAST 43 C/S address of last XREF file block 
XRBSST 45 Block string length in sectors 
XRRCSZ 47 XREF file record size 

XRBLKC 49 Blocks in XREF file 

XRCTAB 57 XREF file output block table 
XRPIME B7 - Print image area 

XRREFC B8 Reference count 

XRREFP BA Reference pointer 

XRRFPS BC Start reference pointer 

XRRDSW BD A/B string switch 

XRSYMS C3 Current symbol save area 
XRKYLC C5 Length of sort key minus 1 
XRNKRL C7 Length of record not in key 
AAWORK c9 Work area A 

ABWORK CB Work area B 

ACWORK CD Work area C 

PACI CE Pseudo accumulator switches 


"=~NONNONN ODA] NN AH DAP NYNNN NN ND OO 


Figure 17 (Part 5 of 6). Assembler Common (ASMCOM) 
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ASSEMBLER COMMON (ASMCOM) 
(Phases 40 and 41 Cont.) 


Hexadecimal 
Displacement Contents 


PAC Pseudo accumulator one 
TPAC Pseudo accumulator two 


. (Not Used) 


ASMCEN | ASMCOM end 


Figure 17 (Part 6 of 6). Assembler Common (ASMCOM) . 
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ASSEMBLER COMMON INTERPHASE PARAMETER USAGE 


Only data fields used by more than one phase are shown. Fields which are merely initialized for the next 
phase are not included. The letter X indicates the phase in which a data field is initialized and first used; 
the letter Y indicates a phase in which a data field is used (other than that in which it is initialized or ter- 


minated); the letter Z indicates the phase in which a data field is used and then terminated. If there is no 
letter, the field is not used by that phase. 


ia Phase ity 
10 


OPTONS 
BGNCOL 
OPTCNT 
ENDCOL 
SEOQCNT 
MODULE 
TITLEN 
ESLCNT 
ESLMAX * 
CATGVL 
COML4V 
COML5V 


SYTBSZ * 


oe ae 

ee ee es es Te 
es 
a ae aE Se es 

SI a ON SO (EE 
<2 AES Ee ee ee ee 
Oe ...cn a aS Ee ie ee le ee es 
a Oe ke Ee a ee ee 
i ae 


ve | | 
vesw [| 


INTLCR 


MAXLCR 


y 


we —[ 
a 
a 
a 
ws | ||| 

P| tT | 


XRBLKC 
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$ASPRC MODULE , 
The $ASPRC Module is loaded by Phase 29 and remains in 
main storage through the end of the assembly process. The 7 


contents of this module are illustrated in Figure 19. SYMBOL TABLE 


DISK BUFFERS 
Model 10 $ASPRC Model 12 and Model 15 $ASPRC 


Figure 20. Phase 20 Main Storage Diagram \ 
PRINTER DTF 
PRINTER DTF HEADER AREA 


PRINT BUFFER PRINT BUFFER 
(on X’7C’ boundary) | (on X‘7C’ boundary) 


SYSPRT/SYSLST PARM LIST 
HEADER AREA PRINT 1OB 


SYMBOL TABLE DATA AREA FORMAT 


SYSPRT module load area Bytes 

(10 total) 
Figure 19. $ASPRC Module 
SYMATR Symbol attributes are indicated 


in this field. Possible settings are: 


. ABSIND (X‘01') indicates an 
SYMBOL TABLE absolute attribute 
. RELIND (X’00') indicates a 
relocatable attribute 


The Symbol Table consists of 10-byte entries for each sym- _ EXTIND (X‘30') indicates an 


bol found. It is built by Phase 20 in the lower end of main EXTRN symbol 

storage and.is designed to fill the entire space between _ SYMRES (X‘02') indicates 
Phase 20 coding and the work file disk buffer. See Figure symbol is resolved 

20. The table is used by Phase 21 (if overflow occurs) and . EXTDEF (X‘80') indicates 


Phase 22 EXTRN definition symbol 
(Model 12 and Model 15 only) 


See Figure 21 for a detailed description of each 10-byte SYMBOL Symbol itself placed in this field 
entry in the symbol table. 


SYMLNG Length attribute of symbol 
(Length -1) 


SYMVAL Symbol value 


Figure 21. Data Area Format for each 10-byte entry in the 
Symbol Table 
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WORK FILE ($WORK2) 


a The Work File is used by the assembler for intermediate 

_ disk storage throughout the assembly process. Figure 22 
shows the relative locations of the data in the work file. 
(Note that the cross reference data is written into the same 
area as the intermediate text and symbol table, and requires 
no additional space.) 


See Appendix A for a description of record formats for 
the four types of data in the work file. 


Figure 23 is a work file activity chart. 


Intermediate Text Symbol | Error 
Table Records 


File Start Optional 


Cross-Reference File 


Figure 22. Work File 


& 
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| erase | Function =| am ctvnty =| 


Put intermediate text 


Build symbol table; 
assign location counter 


Update intermediate text 
(on disk) with location 
counter value and error 
records 


Process overflow symbol 
table 


Update symbolic terms 
Add symbol table entries 
Update symbolic terms 


Substitute symbols Update symbolic terms 


Add symbol table entries 


ESL processing; Prime buffer 


initialize Phase 30 


Get intermediate text 
Add error records 


Assemble object code 


XREF build 
XREF merge 


Figure 23. Work File (SWORK2) Activity Chart 


Get error records 


Get intermediate text 
Write XREF blocks 


Read XREF blocks 
Write XREF blocks 
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Appendix A. Work File Record Formats 


The work file contains four types of data (intermediate text, 3. Assembler Instructions 


symbol table entries, error records, and cross-reference a. END, ENTRY, EQU, EXTRN, ORG, USING — 
data). A description of the record formats for the four types one additional record for each term in the operand 
of work file data follows: field. 


b. EXTRN, ISEQ, PRINT, SPACE, START — one 
additional record for each instruction. 


Intermediate Text Data | c. TITLE — additional records = N/8 (plus one for 
any nonzero remainder), where N is the number of 
, This data is used by the assembler to translate source assem- characters in the title operand field. 
bler language to either a relocatable or an absolute object d. DS/DC 
program. The source code is translated to object code dur- 1) One additional record for duplication factor 
ing a series of passes. At any point, the intermediate text (default or specified value). 
contains the object program information at its current level 2) One additional record for each term in the 
of translation. length specification. 
e. DC 
The intermediate text data is made up of variable length 1) Address Constant — one record for each term 
strings of fixed length (10-byte) records. There are four in address expression. 
types of records in the file: | 2) All other constants — additional records = N/8 
| (plus one for any nonzero remainder), where 
1. Control Records — one produced for each instruction N is the number of bytes required to contain 
in the program. Delimits the variable length string. the converted constant plus one. 
2. Name Records — one produced for each name field Figure 24 is a sample list of instructions together with the 
entry and for all EXTRN names. intermediate text space requirements for each. 


3. Term Records — produced from the contents of the . 
operand field. Contain expression terms, constants, 
and miscellaneous information. 


4. Error Records — contain bit settings indicating errors 


that have been diagnosed. Label Instruction 

The size of a string for a source statement is dependent on START 0 
the statement type and the contents of the operand field. SLC A(2).A 
The following rules can be used to determine intermediate MVC A(2).CON1 
text requirements. (The rules apply only to error free ALC A(2),CON2 
source programs. A statement that contains errors generally HPL X‘FF’,X‘FF’ 
requires less storage space.) : 

a DS CL2 


1. — All Instructions 
a. One record for each machine or assembler instruc- 
a tion or comment statement in the program. DC 1L.2’320’ 
b. One record if there is a name field entry. 


DC 1L2’500’ 


END ENTRY 


2. Machine Instructions — one additional record for each 


: ; Figure 24, Intermediate Text Space Requirements 
term in the operand field. 


Appendix A. Work File Record Formats 121 


Licensed Material-Property of |BM 


Control Record Format | Name Record Format 


Byte 1 Record TYPE and indicators Byte 1 Record type and indicators 


B ‘O1XXXM XX’ 


On indicates multiply defined symbol 


Name record follows 
Module name missing* 
Missing end statement* 


Last text record 


Symbol table overflow Byte 2, 7 Symbol padded with blanks Z 
Sequence error on this 
statement Byte 8,9 Statement number where symbol is defined 
J 
” Last text record only Byte 10 EXTRN number for external symbol, zero 
7 otherwise 


Byte 2 Reserved 
Y Term Record 
Byte 3 Object code length for machine instructions ; 
v 9 Byte 1 _ Record type and term attributes 
Byte 4 Operation code (machine code for machine 
instructions) 
B ‘10AA AAAA' 
Byte 5 a code (machine code for machine instruc- | a ResoiuceernR 
tion) Symbolic term resolved 


Last term in an expression if bit 
Byte 6 Operand format. Bit on indicates operand Operand could be changed by | ison 


element as shown. execution (machine instr) 
Operation 


00 addition 

01 subtraction 

10 multiplication 
11 EXTRN symbol 


If byte 2 contains X‘1E’, a DC constant term, then bytes 
3, 10 contain converted constants. 


If byte 2 contains X‘1F’, a TITLE operand term, then bytes 
3, 10 contain TITLE operand character string. 


Byte 7,8 Location counter value assigned before this 
instruction 


If byte 2 contains X‘OF’, a location counter reference, then 
bytes 3, 7 are not used, byte 8 contains length attribute (0), 
and bytes 9, 10 contain term value. 


Byte 9, 10 Statement number of this instruction 


If byte 2 contains X‘3F’, a self-defining term, then bytes 3, 
7 have miscellaneous uses, byte 8 contains length attribute ‘ 
(0), and bytes 9, 10 contain term value. 


If bytes 2-7 contain a symbolic term padded with blanks, 
then byte 8 contains length attribute of term, and bytes 9, 
10 contain term value. 


122 


Licensed Material-Property of IBM 


The following special terms are created with a self-defining 
term indicator. 


DC/DS 1st term record contains constant type in 
byte 5 and duplication factor in byte 10. 

SPACE Space operand value in byte 10. 

PRINT Current print control settings in byte 8. 


B ‘OO0OO0O0OXXX0'’ 


1 GEN Model 12 and 
Model 15 only 


0 NOGEN 


1 ON 
0 OFF 


1 DATA 
0 NODATA 


ISEQ Sequence ISEQ specification 
Bytes 7, 8—Sequence field length minus 1 
Bytes 9, 10—Sequence field start column 


Error Record 


Byte 1 Record Type 


B ‘11XX XXXxX’ 


ee SN ee” 
not used 


Byte 2 Name field error indicator bits 
Byte 3 Operation field error indicator bits 
Byte 4,6 Operand field error indicator bits 


Byte 7, 10 Reserved 


Page of LY21-0504-3 
Issued 17 March 1976 
By TNL: LN21-5382 


Symbol Table Entries 


Symbol table entries are added to the work file after the 
intermediate text only if a cross reference listing is request- 
ed. The symbol table entries are also 10-byte records. 


Record format for symbol table entries: 


Byte 1 Symbol attributes 


B‘AXAAXXAA' 
Absolute symbol 
Symbol resolved 
EXTRN SYMBOL | if bit 
EXTRN definition / ison 
symbol (Model 12 
and Model 15 only) 


Bytes 2,7 Symbol padded with blanks 
Byte 8 Length attribute of symbol 
Bytes9,10 Value of symbol 


Error Records 


Error records are added to the work file as they are generat- 
ed in Phase 30. They are also 10-byte records. The error- 
record format is: 


Bytes 1,2 Statement number in error 

Bytes 3,8 Error field bytes 2 through 6 of intermediate 
text error record 

Bytes9,10 Reserved 
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Cross-Reference Data 


The cross-reference data is created from the intermediate 
text and symbol table entries in the work file. The blocks 
of the cross-reference data are rewritten into the work file 
as they are created. There are three types of records in the 
cross-reference data: symbol attribute records, symbol 
definition records, and symbol reference records. 


Record formats for the three cross-reference data entries 
are as follows: 
Symbol Attribute Record (translated symbol table entry) 


Bytes 1,6 Symbol padded with blanks 


Byte 7 Type and attribute byte X‘OOAAXXAA’. The 
attributes are the same as for symbol table 
entries. 

Byte 8 Length attribute 


Bytes9,10 Symbol value 
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Symbol Definition Record (translated name record) 


Bytes 1,6 
Byte / 
Bytes 8,9 


Byte 10 


Symbol padded with blanks 
Type byte X’01XXXXXX’ 
Statement number where defined 


Not used 


Symbol Reference Record (translated term record) 


Bytes 1,6 
Byte 7 


Bytes 8,9 


Byte 10 


Symbol padded with blanks 

Type byte X’‘01XXXXXX’ 

Statement number of the reference shifted 
one bit to the left. The rightmost bit on 
indicates a machine operand which could 


be altered by execution of the instruction. 


Term type and attribute byte. 
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CHART NUMBERING 


Flowcharts are identified in this publication in the follow- 
ing manner: 


@ A flowchart consisting of a single page is identified by a 
unique pair of letters. 


Example: AA, AB, AC 


@ Ifa flowchart consists of multiple pages, each page is 
identified by the same pair of letters, but each page has 


a unique number. 


Example: First page, CA-01 
Second page, CA-02 
Third page, CA-03, etc. 


@ Each part has been assigned two sets of flowchart identi- 
fying letters. Only after the first set has been completely 
used, ij.e., AA-AZ, is the second set used. 


Appendix B. Flowcharting Techniques 


SYMBOLS 


The flowchart symbols used in this PLM are: 


<< 


Decision 


CO) 


Entry/Exit 


O) 


On-page Connector 


Processing 


Comment/Annotation 


Off-page Connector 


CH/PG/BLK 


Striped Processing Library Processing 


(Routine Defined 
in this Manual) 


(Routine Defined in 
Another Manual) 
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Striped Processing Blocks 


The striped processing block indicated entry to a module 
or routine which is flowcharted and/or described in this 
logic manual. 


Example: LABEL CH/PG/BK 
NAME 


CH/PG/BK indicates the flowchart, page, and block identi- 
fication where the module or routine is flowcharted. If it 
is not flowcharted, see the index for the location of the 
description of that routine. 


Library Blocks 


A library block indicates a function or module is document- 
ed in another manual. 


Example: 
LABEL 


NAME 


The NAME of the function/module is listed in the Preface 
of this manual under the name of the manual that contains 
the description of this function/module. 


Entry Block 
The label in the upper lefthand corner, just above the sym- 
bol, is the entry point in the listing for that part of the pro- 


gram. 


Example: 
DMcsoP 


ENTRY 
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Exit Block 
This block indicates that control is leaving this chart. 


Example: 


RETURN 
TO: CALLER 


If control is being passed to a known function/module, 
which is documented in another manual, a striped exit block 
is used. The manual can be found via the Preface as with 
library blocks. 


Example: 


$SPEJ 
END-OF-JOB 


Connectors 


Off-page connectors are used to reference between different 
pages of the same chart 1D. Off-page connectors leaving a 
page contain the page number and block number of their 
destination. 


Example: 


Off-page connectors contain the page and block number of 
their origin. If the entry point referenced by the off-page 
connector is referenced from more than one origin, all 
Origins are given. 


Example: 
02-F4 
03-F4 
02-B2 
03-C4 


On-page connectors contain the location of a block on the 
same page. On-page connectors always contain the location 
of the destination block. 
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